.dsy:it. (http://www.dsy.it/forum/)
- Forum De Bell Tolls (http://www.dsy.it/forum/forumdisplay.php?forumid=7)
-- [Visual Basic 6] (http://www.dsy.it/forum/showthread.php?threadid=8285)

[Visual Basic 6]

ciao sono un po' novello con vb6 ed ho alcuni problemi a caricare il risultato di una query in una datagrid...
mi spiego, se cerco di caricare i dati in una flexgrid nn ci sono problemi, ma la datagrid mi rimane inesorabilmente vuota..il mio codice e' questo, qualcuno sa dirmi dove sbaglio???

Dim db_conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

' Apro una connesisone al DB
Set db_conn = New ADODB.Connection
db_conn.ConnectionString = "driver={SQL Server};server=********;uid=********;dat
abase=********"
' db_conn.ConnectionTimeout = 30
db_conn.Open

' Estraggo i dati dal DB
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select IDAnagrafica, NomeCliente FROM unianagr", db_conn, adOpenStatic, adLockReadOnly, adCmdText

' Metto i dati ottenuti dalla query nella flexgrid
Set MSHFlexGrid1.DataSource = rs


' Metto i dati ottenuti dalla query nella datagrid
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "Select IDAnagrafica, NomeCliente, Indirizzo FROM unianagr", db_conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs1

__________________
"Non puo' piovere per sempre".....cazzo saro'mica nato in Amazonia!!!

L'amazonia e' un bel posto, ma preferisco il paradiso

Membro ufficiale della F.I.A.E. Federazione Italiana Anti Elfo

UP

__________________
"Non puo' piovere per sempre".....cazzo saro'mica nato in Amazonia!!!

L'amazonia e' un bel posto, ma preferisco il paradiso

Membro ufficiale della F.I.A.E. Federazione Italiana Anti Elfo