vb+access 添加数据到数据库，提示“不可识别的数据库格式” ，哪位大神帮忙指点一下！

2024-03-29 09:52:56 912 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中通过ODBC配置及VB脚本开发将IFIX数据写入到ACCESS数据库中作者：工控自动化老王关注同名V–X公//众//号：工控自动化老王获取更多技术文档及工控资源，交流、学习，另外老王承接PLC毕业设计，欢迎咨询！配置计算机ODBC （1）使用access新建一个accdb数据库，命名为ReportData，后面要用到；（2）计算机-----控制面板-----ODBC 数据源（32位）进入配置界面，需要注意一点，必须配置32位的ODBC，因为IFIX软件只能够识别32位的，配置界面如下图：（3）阅读详情

Private Sub Command1_Click()

Dim dbpath As String
Dim strsql As String
dbpath = "D:\Telephone Enquiry\data.mdb"

Set conn = CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath

Set rs = CreateObject("ADODB.Recordset")

rs.Open "telphone", conn, 1, 3

rs.AddNew
rs.Fields("序号排列ID").Value = Text1.Text
rs.Fields("员工所属部门").Value = Text2.Text
rs.Fields("坐席使用人").Value = Text3.Text
rs.Fields("员工所属坐席").Value = Text4.Text
rs.Fields("固话或号码1").Value = Text5.Text

rs.Update

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

rs.Close
conn.Close

End Sub