Forum » Programiranje » Label.caption način
Label.caption način
erik ::
Pozdravljeni. Sem začetnik v Vb programiranju zato prosim za nasvet - to bo že 5 forum z istim vprašanjem. Takole:
Imam Formo z nekaj TextBoxi in Label(i). Imam tudi mdb bazo z npr. imeni, vsako ime ima svojo Id cifro - skratka šifrant imen. Vsak TextBox ima zraven gradnik Label. Rad bi dosgel to da bi vnašal podatke na sledeč način:
v TextBox bi vnesel cifro (Id) pritisnil bi enter in v Label.Caption bi se izpisalo ime z tem Id-jem iz baze. Tako bi nadaljeval v drug TextBox npr. spol itd...
Ko bi izpolnil vsa polja Label iz šifranta bi ta skupek podatkov shranil v drugo skupno bazo. Tako.
Nič drugega kot klicanje podatkov iz šifranta na tak način in nato podatke shraniti v drugo bazo. Ne prosim za popolno kodo, nekaj se moram tud sam naučit; prosim le za nekaj korakov kje naj sploh začnem; mogoče za eno osnovno kodo. Skušal sem se povezati z Adodc vendar se mi vse zatakne.
Hvaležen bom za vsako pomoč!
Imam Formo z nekaj TextBoxi in Label(i). Imam tudi mdb bazo z npr. imeni, vsako ime ima svojo Id cifro - skratka šifrant imen. Vsak TextBox ima zraven gradnik Label. Rad bi dosgel to da bi vnašal podatke na sledeč način:
v TextBox bi vnesel cifro (Id) pritisnil bi enter in v Label.Caption bi se izpisalo ime z tem Id-jem iz baze. Tako bi nadaljeval v drug TextBox npr. spol itd...
Ko bi izpolnil vsa polja Label iz šifranta bi ta skupek podatkov shranil v drugo skupno bazo. Tako.
Nič drugega kot klicanje podatkov iz šifranta na tak način in nato podatke shraniti v drugo bazo. Ne prosim za popolno kodo, nekaj se moram tud sam naučit; prosim le za nekaj korakov kje naj sploh začnem; mogoče za eno osnovno kodo. Skušal sem se povezati z Adodc vendar se mi vse zatakne.
Hvaležen bom za vsako pomoč!
mp218 ::
Dim dbs as database
dim rst as recordset
dim strSQL, id as string
StrSQL = "SELECT * FROM Tabela1"
Set dbs = currentdb()
Set rst = dbs.openrecordset(strSQl)
text1.setfocus
id = text1.text
rst.movefirst
Do while (not rst.EOF)
if id = rst.fields(0) then
label0.caption = rst.fields(1)
endif
rst.movenext
Loop
Poizkusi s tem!¨
Glej help za posamezne ukaze. Oznaci in pritisni F1.
...za nejasnosti vprasaj in ti bom povedal prihodnjic
dim rst as recordset
dim strSQL, id as string
StrSQL = "SELECT * FROM Tabela1"
Set dbs = currentdb()
Set rst = dbs.openrecordset(strSQl)
text1.setfocus
id = text1.text
rst.movefirst
Do while (not rst.EOF)
if id = rst.fields(0) then
label0.caption = rst.fields(1)
endif
rst.movenext
Loop
Poizkusi s tem!¨
Glej help za posamezne ukaze. Oznaci in pritisni F1.
...za nejasnosti vprasaj in ti bom povedal prihodnjic
mp218 ::
AJA,
Kaj ne delaš vsega v isti accessovi bazi?
Če da, currentdb() pomeni kar trenutno in ne rabiš pisat nobene poti...samo prepiši vrstico.
Kako se poveže v drugo pa še nisem naštudiral, oziroma nisem še rabil.
Bom pa malo pogledal jutr na sihtu, pa ti kaj povem.
LP, M
Kaj ne delaš vsega v isti accessovi bazi?
Če da, currentdb() pomeni kar trenutno in ne rabiš pisat nobene poti...samo prepiši vrstico.
Kako se poveže v drugo pa še nisem naštudiral, oziroma nisem še rabil.
Bom pa malo pogledal jutr na sihtu, pa ti kaj povem.
LP, M
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | python -slovarOddelek: Programiranje | 3124 (2103) | Valex86 |
| » | [Access 2007]Oddelek: Programiranje | 2627 (2227) | urosz |
| » | C#, Dodajanje podatkov v Arraylist z GumbomOddelek: Programiranje | 2282 (2121) | Beezgetz |
| » | [ASP.NET] problemOddelek: Izdelava spletišč | 2170 (1820) | Microsoft |
| » | asp+access problemOddelek: Izdelava spletišč | 1059 (990) | appz |