mdb数据库

[此贴子已经被作者于2022-7-1 12:40编辑过]

Set cnn = CreateObject("ADODB.Connection")  '创建数据库连接
            cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\钢网库.accdb;Jet OLEDB:database password=123456"
            SQL = "insert into 钢网清单(钢网ID,生产厂家,制作日期,钢网厚度,累计使用,上次张力,所在孔位,钢网型号) values('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "','" & a7 & "','" & a8 & "')"
            cnn.Execute SQL
            cnn.Close
            Set cnn = Nothing

不对

上你的源码看下

Sub Main()
    Set Con = New ADODB.Connection '新建一个连接
    ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
    SourceStr = App.Path
    SourceName = "\date.mdb;"
    SourceStr = "Data Source=" & SourceStr & SourceName
    ConString = ProviderStr & SourceStr '设定连接字符串
    DataEnvironment.Connection.ConnectionString = ConString
    Con.Open ConString
    启动.Show
End Sub
我这是本地的连接。能改成网络吗？
我把数据连文件放到IIS下的

[此贴子已经被作者于2022-7-4 10:49编辑过]

可以改，地址改成局域网地址即可，如果要做成互联网那种需要一个云服务器部署SQL数据库，推荐买腾讯云，128一年，便宜一点！

我改了不行。找不到文件路径
能给改改吗？
Set Con = New ADODB.Connection '新建一个连接
    ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
    SourceStr = "http://192.168.1.6"
    SourceName = "\date.mdb;"
    SourceStr = "Data Source=" & SourceStr & SourceName
    ConString = ProviderStr & SourceStr '设定连接字符串
    DataEnvironment.Connection.ConnectionString = ConString
    Con.Open ConString
    启动.Show

[此贴子已经被作者于2022-7-4 10:58编辑过]

可以实现，我用了多年了，局域网和广域网都可以用，支持多用户

能否把代码贴出来下？