Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim id As String
    Dim SQLStr As String
   
    id = t1.Value
    brand = t2.Value
   
   Set cnn = New ADODB.Connection
   cnn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=koonsubdb;USER=root;PASSWORD=004771;Trusted_Connection=Yes;"
    cnn.Open

        SQLStr = "SELECT * FROM car WHERE car_brand = ' & car_id & ' "
'        cnn.Execute SQLStr

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open SQLStr, cnn, adOpenStatic
    
    'ตรงนี้คือจุดที่อยากให้ record ที่เลือกจาก mysql มาแสดงครับ
    t2.Value = "จะต้องใช้คำสั่งอะไรตรงนี้ครับ" 

    Set rs = Nothing
   cnn.Close
End Sub

Code: Select all

    
    t2.Value = rs.Fields(1).Value
    t3.Value = rs.Fields(2).Value
    t4.Value = rs.Fields(3).Value
    t5.Value = rs.Fields(4).Value
    t6.Value = rs.Fields(5).Value
 

Code: Select all

for i = 1 to 5
    me.controls("t" & i + 1).value = rs.fields(i).value
next i