Forum » Programiranje » Izvoz podatkov v dataGrid-u ??
Izvoz podatkov v dataGrid-u ??
erik ::
Imam odprto formo z praznimi polji (ime, priimek, naslov...). To formo uporabljam za vnos novih podatkov v *.mdb bazo prek Adodc. Kako lahko naredim, da bi v ta tekstovna polja vnesel že vnesene podatke v bazi. Npr. odprem formo z dataGridom, ki vsebuje že vpisane podatke, 2x kliknem ali pritisnem Enter na izbrano vrstico z podatki in podatki te vrstice se mi prenesejo v formo z tekstovnimi polji - vsak podatem v svoje polje seveda. Hvaležen bom za vsak nasvet...
Monster ::
aham... na pamet sicer ne vem , sm upam da ti bo to pomagal...
datagrid ma event click.. potem pa mas datagrid.currentcell, currentrow pa to... pa se s tem mal poigraj
ti pac zberes en vnos.. ta vnos se nahaja v nekem cellu. Se pravi da fksno dolocis currentcell in potem spreminjaš rowe, istočasno pa podatke preneseš v ono polje...
uppam da si kj kapiral , drgač pa MSDN
datagrid ma event click.. potem pa mas datagrid.currentcell, currentrow pa to... pa se s tem mal poigraj
ti pac zberes en vnos.. ta vnos se nahaja v nekem cellu. Se pravi da fksno dolocis currentcell in potem spreminjaš rowe, istočasno pa podatke preneseš v ono polje...
uppam da si kj kapiral , drgač pa MSDN
Ka zaboga...
Equinoxe ::
Nekako takole:
Dim cnRepPrev As New ADODB.Connection
cnRepPrev.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=e:\BSP\BSP97.mdb"
Dim RepPrevSQL As String
Dim rsRepPrev As New ADODB.Recordset
Dim strKomandaRepPrev As String
Dim polje1 As String
Dim polje2 As String
Dim polje3 As String
Dim polje4 As String
Dim polje5 As String.... itd.
Dim Iskani As String
Iskani = Label2.Caption
RepPrevSQL = "SELECT * FROM tblXXXX WHERE ID = '" & Iskani & "'"
rsRepPrev.Open RepPrevSQL, cnRepPrev, adOpenKeyset, adLockOptimistic, adCmdText
Do While Not rsRepPrev.EOF
polje1 = rsRepPrev.Fields(0).Value
polje2 = rsRepPrev.Fields(1).Value...itd.
strKomandaRepPrev = "INSERT INTO tblXXXX([ID], [xxx] ..itd. " & _
"VALUES ('" & polje1 & "', '" & polje2 & "', '" & polje3 & "', '" & polje4 & "', '" & polje5 & "', '" & polje6 & "', '" & polje7 & "'.....itd.) "
cnRepPrev.Execute strKomandaRepPrev
rsRepPrev.MoveNext
Loop
To mora delati.
Dim cnRepPrev As New ADODB.Connection
cnRepPrev.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=e:\BSP\BSP97.mdb"
Dim RepPrevSQL As String
Dim rsRepPrev As New ADODB.Recordset
Dim strKomandaRepPrev As String
Dim polje1 As String
Dim polje2 As String
Dim polje3 As String
Dim polje4 As String
Dim polje5 As String.... itd.
Dim Iskani As String
Iskani = Label2.Caption
RepPrevSQL = "SELECT * FROM tblXXXX WHERE ID = '" & Iskani & "'"
rsRepPrev.Open RepPrevSQL, cnRepPrev, adOpenKeyset, adLockOptimistic, adCmdText
Do While Not rsRepPrev.EOF
polje1 = rsRepPrev.Fields(0).Value
polje2 = rsRepPrev.Fields(1).Value...itd.
strKomandaRepPrev = "INSERT INTO tblXXXX([ID], [xxx] ..itd. " & _
"VALUES ('" & polje1 & "', '" & polje2 & "', '" & polje3 & "', '" & polje4 & "', '" & polje5 & "', '" & polje6 & "', '" & polje7 & "'.....itd.) "
cnRepPrev.Execute strKomandaRepPrev
rsRepPrev.MoveNext
Loop
To mora delati.
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | visual basic 2008 express editionOddelek: Programiranje | 1811 (1238) | sel |
» | [Access 2007]Oddelek: Programiranje | 2627 (2227) | urosz |
» | Neznanje pri VBOddelek: Programiranje | 1007 (836) | GaS |
» | Kako do podatka v queryu iz VisualBasicScripta (VBA) v accessu?Oddelek: Programiranje | 2155 (2040) | Fim |
» | printanje v VB6.0Oddelek: Programiranje | 883 (787) | Zzzzzzz |