MySQL script der ikke virker
Jeg har fået lavet et SQL script som test på min MySQL server jeg endelig har fået til at virke..og de data jeg vil ha kommer fint ud...kaldet ser således ud..SELECT medlem_stamdata . * , baelte_billeder.Belt_pic, tbl_postkoder.By
FROM medlem_stamdata
INNER JOIN tbl_postkoder ON ( tbl_postkoder.PostNr = medlem_stamdata.PostNr )
INNER JOIN baelte_billeder ON ( baelte_billeder.grad = medlem_stamdata.grad )
så snart jeg smider det i min access 2000 vba kode modtager jeg ingen data...min connect skulle meget gerne virker...hele koden til formularen er nedenfor
Private Sub Form_Open(cancel As Integer)
Dim SQLstr As String
SQLstr = "SELECT medlem_stamdata . * , baelte_billeder.Belt_pic, tbl_postkoder.By " _
& "FROM Medlem_stamdata " _
& "INNER JOIN tbl_postkoder ON ( tbl_postkoder.PostNr = medlem_stamdata.PostNr ) " _
& "INNER JOIN baelte_billeder ON ( baelte_billeder.grad = medlem_stamdata.grad ) "
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim result As Long
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=gsk_db;" _
& "UID=root;" _
& "PWD=;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.Open
Set rs = New ADODB.Recordset
rs.Open SQLstr, conn, adOpenStatic, adLockOptimistic
'Me.RecordSource = "gsk_load_form"
'conn.Open Set rs = New ADODB.Recordset
'rs.Open gsk_load_form, conn, adOpenStatic, adlockoptimitic
'conn.Open
End Sub
