dim conn as new adodb.connection
dim rs as new adodb.recordset
Private Sub find_Click()
If trim(pro_search.Text)= "" Then
MsgBox "请输入相应的查询条件!", vbCritical, "提示!"
pro_search.SetFocus
Exit Sub
Else
rs.cursorlocation=aduseclient
Call open_db
Select Case Trim(combo.Text)
Case "名称"
rs.Open "select pro_name as 名称,pro_biename as 别名,pro_tiaoxingma as 条形码,pro_fenzishi as 分子式,pro_character as 性质,pro_guige as 规格,pro_baozhuang as 包装,pro_usage as 用途,pro_makemethod as 制造方法,pro_costprice as 进价,pro_saleprice as 售价,pro_quantity as 数量,pro_supplier as 供应商,pro_jingyun as 是否禁运,pro_safe as 安全系数,pro_code as 产品编码,pro_sort_name as 产品类别 from pro_inf where pro_name like '%" & Trim(pro_search.Text) & "%'", conn, 0, 1
If rs.EOF And rs.BOF Then
MsgBox "没有找到相关的产品,请重新输入查询条件!", vbInformation, "提示!"
pro_search.SetFocus
pro_search.SelStart = 0
pro_search.SelLength = Len(Trim(pro_search.Text))
Else
Set DataGrid.DataSource = rs '还是这句报错呀
End If
Call close_rs
End Select
Call close_db
End If
End Sub
要设置cursorlocation