VB: Sql

Måske kan nedenstående kode hjælpe lidt på vej:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

    ' Open the database.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=127.0.0.1;" _
        & "DATABASE=test;" _
        & "UID=testuser;" _
        & "PWD=12345;" _
        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
    conn.Open
                                 
    ' Open the recordset.
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM table1", conn, adOpenStatic, adLockReadOnly

    ' Process the records.
    Do While Not rs.EOF
        for each x in rs.fields
            response.write(x.name)
            response.write(" = ")
            response.write(x.value)
        next
        rs.MoveNext
    Loop

    ' Closing
    rs.Close
    Set rs = Nothing
   
    conn.Close
    Set conn = Nothing

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&spm_creator=&spm_part=&spm_answer=&find=mysql&engine=exp

Jeg har nu følgende kode:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

    ' Open the database.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=127.0.0.1;" _
        & "DATABASE=dgkom;" _
        & "UID=;" _
        & "PWD=;" _
        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
    conn.Open
                                 
    ' Open the recordset.
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM users", conn, adOpenStatic, adLockReadOnly

    ' Process the records.
    Do While Not rs.EOF
        For Each x In rs.fields
            response.write (x.Name)
            response.write (" = ")
            response.write (x.Value)
        Next
        rs.MoveNext
    Loop

    ' Closing
    rs.Close
    Set rs = Nothing
   
    conn.Close
    Set conn = Nothing


_____________________

Men når jeg forsøger at køre programmet kommer følgende fejl frem:
Ivalid Outside Procedure

Hvad skyldes det?

Hvor ændrer jeg iøvrigt hvilke værdier der skal printes?

Fandt lige et andet eksempel, og bruger derfor følgende nu:

Set conn = CreateObject("ADODB.Connection")
DSN = "Provider=MSDASQL.1;Extended Properties=""Driver={MySQL};DATABASE=dgkom;SERVER=127.0.0.1;UID=;PWD=;PORT=;OPTION=0;STMT=;"""
conn.Open DSN

SQL = "select * from users"
Set rs = conn.Execute(SQL)
While Not rs.EOF
text1.Text = rs("name")
rs.MoveNext
Wend

Men jeg får samme fejl!?

Det hjælper ikke kun at give fejlmeddelsen. HVOR kommer den?

Det skyldes formentlig at koden ikke befinder sig i en procedure/funktion.

Prøv evt. følgende fra "http://www.freevbcode.com/ShowCode.asp?ID=6187":

' put the following in a module

Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, conn As ADODB.Connection, rs As ADODB.Recordset)
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  conn.CursorLocation = adUseClient
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
  & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
  conn.Open
End Function

'********************************************

' put this in your form

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Dim ssql As String
Private Sub Form_Load()
Call connectMysql("root", "", "127.0.0.1", "myerp", conn, rs)
ssql = "SELECT * FROM accmaster"
rs.Open ssql, conn
Set DataGrid1.DataSource = rs
End Sub

Kan ik helt få det til at virke.
Kender I en artikel på nettet, hvor jeg kan få metoden gennemgået?

Hvad er det der ikke lige virker? Kan du ikke åbne forbindelsen? Får du fejlmeddelelser oder was?

Jeg lukker her