UC知道vb向ACESS数据库写数据
来源：百度知道 编辑：UC知道 时间：2024/05/10 15:01:41
我将8个文本框中的数据,向数据库"RSSES"中的"主因素"表中的各字段写数据,总是提示出错!请各位高手指点啊!
代码写出!
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=RSSES.mdb;Persist Security Info=False"
cnn.Open strcnn
Set zys = New ADODB.Recordset
zys.Open "主因素", cnn, , , adCmdTable
If (Text65.Text <> "") And (Text66.Text <> "") And (Text67.Text <> "") And (Text68.Text <> "") And (Text69.Text <> "") And (Text70.Text <> "") And (Text71.Text <> "") And (Text72.Text <> "") Then
zys.AddNew
zys! "综合环境因素U1" = Val(Text65.Text)
zys! "岩体特
代码写出!
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=RSSES.mdb;Persist Security Info=False"
cnn.Open strcnn
Set zys = New ADODB.Recordset
zys.Open "主因素", cnn, , , adCmdTable
If (Text65.Text <> "") And (Text66.Text <> "") And (Text67.Text <> "") And (Text68.Text <> "") And (Text69.Text <> "") And (Text70.Text <> "") And (Text71.Text <> "") And (Text72.Text <> "") Then
zys.AddNew
zys! "综合环境因素U1" = Val(Text65.Text)
zys! "岩体特
zys! "综合环境因素U1"
改成
zys("综合环境因素U1")
后面几个也一样改
你的VB 或者机器问题，你可以在里面试几个函数，它都会报错了，
你在这个程序开如添加几个函数试试
a=date()
b=trim(" dfsd ")
c=cstr(123)
d=val("12345")
......
你会发现这些都是系统常用的函数，在你那里就会报错。
建议你新建一个数据工程，然后，一个程序一个程序的复制添加到新的工程里面试试，这样也许不行，因为你的VB和机器，可能存在问题以至不能正常运行。