Új hozzászólás Aktív témák

• #1322 martonx veterán bandus #1321

  Új Válasz 2010-11-26 06:59:33 #1322

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz bandus #1321 üzenetére

  Ugye VB.NET-ről beszélünk? Mert ha igen, akkor elküldheted a kódod. Megoldás szempontjából végülis mindegy, hogy .Net vagy nem.

  Ha már megvan a mini adatbázisod, és a csv-d, akkor olvasd be csvből az adatokat, majd azokon végiglépdelve, amit nem találsz meg az adatbázisodban, azt beletöltöd.

  Amúgy, ahhoz nem kell csv-hogy excellel kezeld az adatokat, sima COM objektumon keresztül tudsz kommunikálni az excellel. Ezt sokkal elegánsabbnak tartanám.

  Vagy csinálsz egy excel makrót, ami szintén beleír az adatbázisodba

  BME-n már ilyen szakdolgozatokért is adnak diplomát?

• #1315 martonx veterán bandus #1314

  Új Válasz 2010-11-25 00:05:13 #1315

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz bandus #1314 üzenetére

  Én már azon fennakadtam, hogy minek egy rekord fájl és egy csv fájl külön-külön? Miért nem a csv fájl a rekord fájl is egyben

• #1299 ArchElf addikt bandus #1297

  Új Válasz 2010-11-11 10:50:18 #1299

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ArchElf

  addikt

  válasz bandus #1297 üzenetére

  Ez működőképesnek tűnik.
  Load-ban be kell állítani a fájlnevet (ha nem textboxból kell beolvasni), Megnyitni a fált írás/olvasásra, le kell kérdni a rekordok számát, be kell állítani az első rekordot (nem kell beszárni a fájl).
  Bottonokban:
  - navigálás: gondolom neked is egyszerű (index változót kell növelni csökkenteni a 0 és a darabszám-1 között - vagy 1 és darabszám között??? már nem emlékszem)
  - editre: ugyanaz van, mint a GET (csak PUT-tal): beállítani a rekordszámot, a textboxokból legenerálni a típust, felülírni vele a rekordot az adott helyen.
  - mentésre: bezárni a fájlt és újranyitni
  - törlésre:
  legegyszerűbb az utolsó elemet a fájl végéről bemásolni a törölt helyére és a rekordhosszal csökkenteni a fájl hosszát.
  bonyolultabban minden rekordot a törölt rekod után eggyel előrébb írni, majd csökkenteni a fájl hosszát egy rekordhosszal.

  Nincs sajna VB6-om, csak magyarázni tudok...

  AE

• #1297 bandus veterán bandus #1296

  Új Válasz 2010-11-11 01:38:31 #1297

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bandus

  veterán

  válasz bandus #1296 üzenetére

  szóval a fájlkezelést tanultuk és a feladat a következő lenne:
  egy ksi adatbázist kellene létrehozni egy rekord típusú fájlban. a fáljlban egy személyről 3 adatot kellene tárolni. ezen adatok eltárolásához létrehoztunk egy elrendezést. 3 textboxban a kívánt adatok vannak, a 4.ben kellene megjelennie annak, hogy hányadik rekordról van szó. a textboxok egyben szolgálnak az adatok bevitelére és egjelenítésére is.
  van 4 command button. egy előre és egy hátra funkciójú, ami a rekordok közötti navigációra szolgál. egy mentés nevű, ami a 3 textbox tartalmát beírja egy rekordba a fájlban, és egy töröl, ami az épp kiválasztott rekordot törli ki.
  remélem érthető...
  a kódból jelenleg ennyi van meg:

  Option Explicit
  Option Base 1
  Private Type hallgato
  nev As String * 30
  neptun As String * 6
  kp As Single
  End Type
  Dim h As hallgato
  Dim f As Integer
  Dim r As Integer
  Dim fnev As String
  Dim tmpfile As String

  Private Function darab() As Integer
  f = FreeFile
  Open fnev For Random Access Read As #f Len = Len(h)
  darab = LOF(f) / Len(h)
  Close #f

  End Function
  Public Sub kiirat(rekordsz As Integer)
  Dim db As Integer
  db = darab
  If db = 0 Then
  Label4.Caption = "No data"
  Call tiszta
  Else
  Label4.Caption = Str(rekordsz) + "/" + Str(db)
  f = FreeFile
  Open fnev For Random Access Read As #f Len = Len(h)
  Get #f, rekordsz, h
  textbox1.Text = h.nev
  textbox2.Text = h.neptun
  textbox3.Text = Str(h.kp)
  End If

  End Sub
  Public Sub tiszta()
  Text1.Text = "Maximum 30 karakter"
  Text2.Text = "NEPTUN"
  Text3.Text = "Kp"

  End Sub

  remélem tud valaki segíteni

• #1295 martonx veterán bandus #1292

  Új Válasz 2010-11-10 20:08:10 #1295

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz bandus #1292 üzenetére

  put/get úristen ez VB6 lesz.

  És ezt oktatják az iskolában??? Eldobom az agyamat. Szerencsétlen diákok. Komolyan nem értem, akkor már miért nem VBScriptet oktatnak? Az legalább tartós tudást ad, ha más nem, makró programozásnál lehet hasznosítani.

  Na de VB6 tudással mit tudsz kezdeni 2011-ben?

• #1293 opr nagyúr bandus #1292

  Új Válasz 2010-11-10 17:33:11 #1293

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  opr

  nagyúr

  válasz bandus #1292 üzenetére

  Ennél kicsit konkrétabban kéne leírnod a kérdést
  Először is, mi a feladat? Másodszor: mi a jelenlegi kódod? Harmadszor: mi a hiba, hol száll el, stb.

Új hozzászólás Aktív témák