 |
Berserk |
elfucker
Registered: Jul 2002
Posts: 477 (0.06 al dì)
Location:
Corso: Informatica
Anno: out-of-date
Time Online: 3 Days, 17:29:15 [...]
Status: Offline
Edit | Report | IP: Logged |
[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
grazie dello sbattimento
__________________
"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
|
Berserk
