求教高手 vb中 datagrid控件不能显示来自Ado控件的数据
datagrid控件不能显示来自Ado控件的数据,但是可以通过多个textbox控件显示出来数据表中各字段的数据。部分代码见下:PrivateSubForm_Load()...
datagrid控件不能显示来自Ado控件的数据,但是可以通过多个textbox控件显示出来数据表中各字段的数据。部分代码见下:
Private Sub Form_Load()
Adodc1.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=100.10.200.255;" & _
"DATABASE=qqq555;" & _
"UID=rdfe_skdjf;PWD=qqq555;" & _
"OPTION=3"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from yg_xxb order by 员工ID "
Adodc1.Refresh
ShowText
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub ShowText()
On Error Resume Next
Text2.Text = Adodc1.Recordset.Fields(1).Value
Text3.Text = Adodc1.Recordset.Fields(2).Value
Text4.Text = Adodc1.Recordset.Fields(3).Value
End Sub
我是准小白,希望能详细说明问题,多谢多谢。 展开
Private Sub Form_Load()
Adodc1.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=100.10.200.255;" & _
"DATABASE=qqq555;" & _
"UID=rdfe_skdjf;PWD=qqq555;" & _
"OPTION=3"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from yg_xxb order by 员工ID "
Adodc1.Refresh
ShowText
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub ShowText()
On Error Resume Next
Text2.Text = Adodc1.Recordset.Fields(1).Value
Text3.Text = Adodc1.Recordset.Fields(2).Value
Text4.Text = Adodc1.Recordset.Fields(3).Value
End Sub
我是准小白,希望能详细说明问题,多谢多谢。 展开
1个回答
展开全部
程序上没问题!
确定你的数据源 Adodc1中有数据,如果不行,就将原来的 DataGrid1 控件删除,重新放置一个,在设计时不要手工连接数据源.Grid控件有些时候会发生这样记忆状态混乱的问题.
确定你的数据源 Adodc1中有数据,如果不行,就将原来的 DataGrid1 控件删除,重新放置一个,在设计时不要手工连接数据源.Grid控件有些时候会发生这样记忆状态混乱的问题.
追问
Adodc1中有数据,在textbox控件中能输出表中的记录数据;adodc1控件属性没有任何设置,刚才把datagrid控件删除后又在窗体中加入了新的,问题依旧;以上代码调试后datagrid控件上可以显示字段名,但是不能显示表记录数据。
追答
那可真是个神奇的事件哦!!!
我怀疑 ShowText()过程有没有影响?你先把 ShowText()关闭,或放在 Set DataGrid1.DataSource = Adodc1 的后面运行。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询