EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)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
rs.fields(x)
มาช่วยแสดงคำตอบได้ครับ เช่นt2.Value = rs.fields(0)
แสดงค่าของ Fields แรกt2.Value = rs.fields(1)
แสดงค่าของ Fields ที่สอง เป็นต้น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