关于VB+ACCESS的数据库有关问题(典型的ADODC失败有关问题)
关于VB+ACCESS的数据库问题(典型的ADODC失败问题)
Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from 试卷题库"
Adodc1.Refresh
cmbField.Clear
For i = 0 To Adodc1.Recordset.Fields.Count - 1
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0)
End Sub
(运行以后 显示FROM子句语法错误。按确定。显示“对象'refresh'的方法‘iadodc’失败” 按调试 箭头指向Adodc1.Refresh这一行。)
哪位大神能指点下。小弟全靠自学。举目无亲。只有教程视频。我是看教程视频来后自己做个类似的。
------解决方案--------------------
Adodc1应该是没有创建合适可用的连接串!
设计模式,属性窗口connectionstring属性中设置
------解决方案--------------------
http://download.****.net/detail/veron_04/3827200
------解决方案--------------------
adodc1没有与数据库建立连接引起的
------解决方案--------------------
点击ADODC控件,右键属性,第三行连接字符串,选择,连接方式,选择一个数据库
要是用代码的话,清楚些,下面是示例,你自己根据需要改
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\book.mdb;Persist Security Info=false;Mode=ReadWrite
------解决方案--------------------
Share Deny None;Jet OLEDB:database "
Adodc1.RecordSource = "select * from member order by 卡号"
Adodc1.CommandType = adCmdText 这一行很重要的
Set DataGrid1.DataSource = Adodc1
------解决方案--------------------
refresh失败的原因可能是数据库连接没成功。
另外:看你的语句的意思是要把表的结构(field)加到combobox中,所以没必要"select * from 试卷题库"增加读取量。
Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from 试卷题库"
Adodc1.Refresh
cmbField.Clear
For i = 0 To Adodc1.Recordset.Fields.Count - 1
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0)
End Sub
(运行以后 显示FROM子句语法错误。按确定。显示“对象'refresh'的方法‘iadodc’失败” 按调试 箭头指向Adodc1.Refresh这一行。)
哪位大神能指点下。小弟全靠自学。举目无亲。只有教程视频。我是看教程视频来后自己做个类似的。
------解决方案--------------------
Adodc1应该是没有创建合适可用的连接串!
设计模式,属性窗口connectionstring属性中设置
------解决方案--------------------
http://download.****.net/detail/veron_04/3827200
------解决方案--------------------
adodc1没有与数据库建立连接引起的
------解决方案--------------------
点击ADODC控件,右键属性,第三行连接字符串,选择,连接方式,选择一个数据库
要是用代码的话,清楚些,下面是示例,你自己根据需要改
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\book.mdb;Persist Security Info=false;Mode=ReadWrite
------解决方案--------------------
Share Deny None;Jet OLEDB:database "
Adodc1.RecordSource = "select * from member order by 卡号"
Adodc1.CommandType = adCmdText 这一行很重要的
Set DataGrid1.DataSource = Adodc1
------解决方案--------------------
refresh失败的原因可能是数据库连接没成功。
另外:看你的语句的意思是要把表的结构(field)加到combobox中,所以没必要"select * from 试卷题库"增加读取量。