vb6.0 与 SQL2000
sn216 2003-08-21 11:18:40 1.查询
GetFirstName()和GetLastName()是解析姓名的函数
Dim SearchStr As String
Dim FirstN As String
Dim LastN As String
SearchStr = InputBox("输入完整姓名", "资料查询")
FirstN = GetFirstName(SearchStr)
LastN = GetLastName(SearchStr)
Text2.Text = LastN & FirstN
Adodc1.RecordSource = "select * from employees where FirstName=FirstN and LastName=LastN"
Adodc1.Refresh
报错:列名‘FirstN’无效!
请问:如何才能查询完成?
2.添加
On Error GoTo AddErr
Adodc1.Recordset.MoveLast
DataGrid1.SetFocus
SendKeys "{down}"
????????????此处好像缺什么?如何加?SendKeys "{down}"
Exit Sub
AddErr:
MsgBox Err.Description