sqlstatement:
select * from tmct_info where contractno like '%'&?&'%'LimsConnect为数据环境名,Paraworkorder为参数名,Paraworkorder为command名
Set rs = LimsConnect.Paraworkorder(txtSearch.Text)
报错:数据类型不匹配,不知何故
select * from tmct_info where contractno like '%'&?&'%'LimsConnect为数据环境名,Paraworkorder为参数名,Paraworkorder为command名
Set rs = LimsConnect.Paraworkorder(txtSearch.Text)
报错:数据类型不匹配,不知何故
然后调用数据环境就可以了。
Private Sub Command3_Click()
DbFileName = App.Path & "\article.mdb"
connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
DbFileName & ";Persist Security Info=False;"
DataEnvironment1.Connection1.Open connectstring
DataEnvironment1.rsCommand1.Open "select * from mz where mc like '%" & txtSearch.Text &"%'"
DataReport1.Show
End Sub
指向paraworkorder
上面的参数名是para1
LimsConnect.paraworkorder.Parameter("Param1") = Paraname
将command1中的SQL语句改为
PARAMETERS p TEXT;
SELECT * FROM mytable WHERE name=p
然后在程序中使用如下语句:
DataEnvironment1.Commands("Command1").Parameters("p") = Text1.Text
DataReport1.Show
drtGZZSBB.Show 1