Visualizzare query con vb6

venerdì 08 settembre 2006 - 16.11

isotopo75 Profilo | Newbie

Ciao a tutti...
sto cercando di imparare ad utilizzare VB6 per interagire con databases sql server. Il problema è che, nonstante abbia un manuale, c'è qualcosa che continua a sfuggirmi.
Io sono riuscito ad effettuare una connessione ad un database e riesco anche a vedere le tabelle... il problema è che non riesco ad eseguire le query!!

Ho eseguito questo piccolo programmino che fa una connessione ad un database di sql server 2000 tramite un dns di sistema che punta sul database nortwind. Poi esegue una semplice query.
Il programma funziona ma io non riesco ora a VISUALIZZARE il risultato della query!!
O meglio... dentro la variabile rs immagino ci siano tutti i record della tabella employees, ma se voglio vederli quando eseguo il form come faccio?
Ho provato a scrivere print rs ma mi dice mismatch error... ma che tipi di dati sono?

Grazie mille a tutti quanti!!!!!!

Iso75.


Private Sub Command1_Click()
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

' Use a connection string or a Connection object.
Cmd.ActiveConnection = "DSN=prova_vb6;UID=sa"
Cmd.CommandText = "select * from dbo.Employees"
Cmd.CommandTimeout = 15
Cmd.CommandType = adCmdText

Set rs = Cmd.Execute()
rs.Close
End Sub

superzana Profilo | Newbie

Se hai aperto la connessione, secondo me ti conviene aprire il recordset in questo modo:

rs.Open stringaSQL, connessione

nel tuo caso:
rs.Open "select * from dbo.Employees", TuaConnessione


Poi, se la proprietà EOF del recordset è false, ti scorri il recordset con un ciclo

Esempio:
-------------------------

While not rs.EOF
msgbox rs.fields("nomecampo")

rs.movenext
wend
rs.close

-------------------------

CIAO!
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5