现在代码运行出错，找不到哪里错了，请各位高手帮忙运行，找找错误点，告诉我修改方法。 - 编程论坛

#2

wmf20142018-05-23 15:27

测试没出错，能具体说说在什么情况下出什么错误吗？

#3

qwer7892018-05-23 15:48

将记录源设定为2-adcmtable时，运行出现的问题

只有本站会员才能查看附件，请登录

修改记录源设定为1-adcmtext时，运行出现的问题

只有本站会员才能查看附件，请登录

查看数据库“故障类型”就清空

只有本站会员才能查看附件，请登录

我发的上一个帖子，有一位版主帮我运行成功，说是我字段名没有搞清楚，我现在也是一头雾水

#4

kbtwhg2018-05-23 16:54

没有问题了
Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
= adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\软件开发\VB公证软件开发资料\guzhang\guzhang.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from guolu Where 故障类型='" & Combo1.Text & "'"
Adodc1.Refresh
    Text1.Text = Adodc1.Recordset.Fields("故障征兆")
    Text2.Text = Adodc1.Recordset.Fields("故障原因")
Adodc1.Recordset.Close
End Sub

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Clear
= adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\软件开发\VB公证软件开发资料\guzhang\guzhang.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from guolu"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("故障类型")
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Close
End Sub

#5

qwer7892018-05-23 17:03

回复 4楼 kbtwhg

只有本站会员才能查看附件，请登录

这是我的数据库，你看一看有没有问题？添加那个代码后，出现的问题和我楼上修改记录源为1-adcmtext一样。

#6

qwer7892018-05-23 17:05

回复 2楼 wmf2014

给你的回复，被我弄在第三楼了。

#7

wmf20142018-05-23 17:13

设置adcmtable时必须有控件绑定数据记录，否则adodc1.recordset=nothing，用这种模式不能照搬sql命令，其相当于省略掉了前面的“select *”，该模式下能正常运行的代码如下：

程序代码：

Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
= adCmdTable
Adodc1.RecordSource = "guolu  Where 故障类型='" & Combo1.Text & "'"
Adodc1.Refresh
Set Text1.DataSource = Adodc1
    Text1.Text = Adodc1.Recordset.Fields("故障征兆")
    Text2.Text = Adodc1.Recordset.Fields("故障原因")
Adodc1.Recordset.Close
End Sub

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Clear
Set DataGrid1.DataSource = Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
= adCmdTable
Adodc1.RecordSource = "guolu"
Set Text1.DataSource = Adodc1
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("故障类型")
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Close
End Sub

#8

wmf20142018-05-23 17:19

设置adcmtext模式同一楼代码，运行没有任何问题，没出现你说的删除了“故障类型”的情况。

#9

qwer7892018-05-23 19:36

回复 8楼 wmf2014

我自己建的数据库有问题没有？

#10

ZHRXJR2018-05-23 22:43

回复楼主 qwer789

我估计是你的Adodc1控件设置的问题，我又测试了一下，反复点击了Combo1，大概有几十次吧，一点问题都没有。
Adodc1控件是不需要任何设置的，如果设置了Adodc1控件的连接字符串或数据源，就有可能出问题。
你的对话框中的字符：field not updatable,bound property name:tex，field name
意思大概是不能更新，注意：是更新，所绑定，注意是绑定，字段的值。
我的程序中即没有绑定，也没有更新，因此是我估计是你的Adodc1控件设置的问题。
解决办法，删除原来的Adodc1控件，重新在放置一个Adodc1控件将可以了。
给你源文件，你再看看，应该不是程序的问题。

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2018-5-23 23:14编辑过]

#11

qwer7892018-05-24 12:32

回复 10楼 ZHRXJR

非常感谢您的帮助