以下是源代码,请大家看看,帮我看看,执行程序没有错误提示,但是不能显示数据
Dim strconn
strconn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=wljk;Data Source=.\WINCC"
Dim KJdatagrid,KJadodc
Set KJdatagrid = ScreenItems("DataGrid")
Set KJadodc = ScreenItems("Adodc")
KJadodc.ConnectionString = strconn
KJadodc.RecordSource = "select * from 仓位表"
KJadodc.Refresh
Set KJdatagrid.DataSource = KJadodc
KJdatagrid.Refresh