مشاهده نسخه کامل
: h12b14
29-12-2008, 19:41
سلام. من می خوام با یک دستور جستجو اطلاعات بدست آمده از پایگاه داده را در یک دیتا گرید نمایش دهم.ولی کد زیر کار نمی کنه. لطفا من رو راهنمایی کنید.متشکرم
Private Sub Search_Click()
Dim str1 As String
str1 = "select * from Employee where EmployeeName = " & Val(Trim(Text9.Text)) & " "
Set rs1 = New Recordset
rs1.Open str1, cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs1
End Sub
Private Sub Search_Click()
Dim str1 As String
str1 = "select * from Employee where EmployeeName = " & Val(Trim(Text9.Text)) & " "
Set rs1 = New Recordset
rs1.Open str1, cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs1
End Sub