SQL data til Visual Basic applikation

taken from http://www.freevbcode.com/ShowCode.Asp?ID=1257


Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Dim sConnString  As String
Dim iCtr As Integer

'MAKE SURE YOU HAVE LATEST VERSION OF
'OLE DB PROVIDERS, WHICH YOU CAN GET AT
'http://www.microsoft.com/data

'BE SURE TO INCLUDE A REFERENCE TO MICROSOFT
'ACTIVE X DATA OBJECTS IN YOUR PROJECT

' IF SQL SERVER USE SOMETHING LIKE THIS
'Data Source = Server Name
'Initial Catalog = Database
'Use your own user names and password

sConnString = "Provider=SQLOLEDB.1;User ID=sa;password=mypassword;Initial Catalog=MyDatabase;Data Source = MySQLServer;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"

'IN ACCESS USE SOMETHING LIKE THIS:
'Change Data Source to full path of database
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb"


conn.Open sConnString
Set cmd.ActiveConnection = conn

'REPLACE MYTABLE WITH YOUR OWN TABLE
cmd.CommandText = "SELECT * FROM MYTABLE"
cmd.CommandType = adCmdText
Set rs = cmd.execute

Do While Not rs.EOF
  For iCtr = 0 To rs.fields.Count - 1
      'OutPuts Name and Value of each field
      Debug.Print rs.Fields(iCtr).Name & ": " & _
        rs.Fields(iCtr).Value
    Next
rs.MoveNext
Loop
Set rs = Nothing
Set cmd = Nothing
conn.Close
Set conn = Nothing

Tak for det, men et par ting:

Jeg får at vide at "Type 'ADODB. connection' is not defined" og tilsvarende for ADODB.command og ADODB.Recordset og at "name AdCmdTxt is not declared".

Hvad gør jeg ved det?

http://msdn2.microsoft.com/en-us/library/ms677497.aspx

Mange tak for det - men jeg får stadig at vide at "Name AdCmdText is not declared". Skal den deklareres som 'string' eller? Hvordan kan jeg i øvrigt benytte de værdier jeg får vha. SQL-querien?

I would have though that having a reference to ado was enough but you could try

cmd.CommandType = adodb.adCmdText

It says that 'adcmdtext' is not a member of 'ADODB'.

strange

replace it with 1

cmd.CommandType = 1

Det virker! Tak!

selv tak