Option Compare Database

Dim oConn As ADODB.Connection

 

Dim rs As ADODB.Recordset

Private Sub ConnectDB()

Set oConn = New ADODB.Connection

oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _

"SERVER=127.0.0.1;" & _

"DATABASE=databaseadim;" & _

"USER=kullaniciadim;" & _

"PASSWORD=şifrem;" & _

"Option=3;" & _

"PORT=23306;"

End Sub



private Sub PullData()

'On Error Resume Next

Set rs = New ADODB.Recordset

ConnectDB

strSQL = "select * from srg_tum  where alicisoyadi like '" & Me.Metin23.Value & "'"

 rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic

 MsgBox rs.RecordCount

 rs.MoveFirst

 

 

 Me.Metin1 = rs.Fields("alicisoyadi")

 Me.Metin3 = rs.Fields(1)

 Me.Metin5 = rs.Fields(2)

 Me.Metin7 = rs.Fields(3)

 Me.Metin9 = rs.Fields(4)

 Me.Metin11 = rs.Fields(5)

 Me.Metin13 = rs.Fields(6)

 Me.Metin15 = rs.Fields(7)

 Me.Metin17 = rs.Fields(8)

 Me.Metin19 = rs.Fields(9)

 End Sub

sistemi ile çözülmüştür.
Accessman`ın yeni fikirleri var tabiki. Konu o yönde gelişecek inşallah .