กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
308 1
URL.หัวข้อ /
URL
ช่วยดูโค้ด ที่จะเปลี่ยนจาก VB เป็น Access ให้ผมด้วยครับ
คือผมใช้ VB ติดต่อกับฐานข้อมูล Access ผ่านทางAdodc1 แล้วเขียนโค้ด เพื่อค้นหาเลขทะเบียน
และใช้ได้โดยไม่มีปัญหาอะไร
แต่ผมอยากทราบว่า ถ้าผมจะใช้ฟอร์มของ Access ทำการค้นหาลักษณะแบบนี้ เราจะต้องเขียน โค้ดยังไงครับ เปลี่ยน จาก Adodc1
Private Sub CmdSearch_Click()
Dim userCriteria As String
userCriteria = "reg_no like ' " & Text3.Text & " ' "
If Text3.Text = " " Then
MsgBox "ยังไม่ได้ป้อนคำค้นครับ", vbYes, "แจ้งข้อผิดพลาด"
Else
With Adodc1.Recordset
.MoveFirst
.Find userCriteria, , adSearchForward
End With
End If
If Adodc1.Recordset.EOF Then
MsgBox "ไม่พบข้อมูลที่ต้องการค้นหา", vbYes, "ผลการค้นหา"
End If
End Sub
และใช้ได้โดยไม่มีปัญหาอะไร
แต่ผมอยากทราบว่า ถ้าผมจะใช้ฟอร์มของ Access ทำการค้นหาลักษณะแบบนี้ เราจะต้องเขียน โค้ดยังไงครับ เปลี่ยน จาก Adodc1
Private Sub CmdSearch_Click()
Dim userCriteria As String
userCriteria = "reg_no like ' " & Text3.Text & " ' "
If Text3.Text = " " Then
MsgBox "ยังไม่ได้ป้อนคำค้นครับ", vbYes, "แจ้งข้อผิดพลาด"
Else
With Adodc1.Recordset
.MoveFirst
.Find userCriteria, , adSearchForward
End With
End If
If Adodc1.Recordset.EOF Then
MsgBox "ไม่พบข้อมูลที่ต้องการค้นหา", vbYes, "ผลการค้นหา"
End If
End Sub
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R05610
ลองนำตัวอย่างของอาจารย์สุภาพ ไปปรัปแต่งดูนะค่ะ เพราะเท่านที่ทราบคำสั่งเหมือนกัน แต่ลักษณะการเขียน อ้างอิง object หรือการติดต่อกันผ่านทาง adodc ไม่เหมือนกัน
Time: 0.0942s