VB开发我的Access数据库有2个表,但是想让2个表当中的一些字段合起来显示在datagrid上,具体信息如下: 15
设置信息表的字段(地址编号,地址名称,标志位,设定值)数据显示表的字段(地址编号,报警状态,报警值,报警时间)我现在想显示这么几项(地址编号,地址名称,报警状态,报警值,...
设置信息表的字段(地址编号,地址名称,标志位,设定值)数据显示表的字段(地址编号,报警状态,报警值,报警时间) 我现在想显示这么几项 (地址编号,地址名称,报警状态,报警值,报警时间) 窗体就一个datagrid,adodc,程序如下:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB_CAN\数据采集.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select a.地址编号,a.地址名称,b.报警状态,b.报警值,b.报警时间 from 设置信息表 as a,数据显示表 as b,where a.地址编号=b.地址编号 order by 地址编号 asc"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 3000
DataGrid1.Columns(1).Width = 3000
DataGrid1.Columns(2).Width = 3000
DataGrid1.Columns(3).Width = 3000
DataGrid1.Columns(4).Width = 3000
End Sub
运行说form子句语法错误 不知道怎么改,求高手指点 展开
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB_CAN\数据采集.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select a.地址编号,a.地址名称,b.报警状态,b.报警值,b.报警时间 from 设置信息表 as a,数据显示表 as b,where a.地址编号=b.地址编号 order by 地址编号 asc"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 3000
DataGrid1.Columns(1).Width = 3000
DataGrid1.Columns(2).Width = 3000
DataGrid1.Columns(3).Width = 3000
DataGrid1.Columns(4).Width = 3000
End Sub
运行说form子句语法错误 不知道怎么改,求高手指点 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询