VB可以用IP访问数据吗？ - 编程论坛

#2

约定的童话2022-07-01 15:47

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

#3

sncelpl2022-07-04 09:36

回复 2楼约定的童话

不对

#4

约定的童话2022-07-04 09:56

回复 3楼 sncelpl

上你的源码看下

#5

sncelpl2022-07-04 10:47

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编辑过]

#6

约定的童话2022-07-04 10:49

回复 5楼 sncelpl

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

#7

sncelpl2022-07-04 10:51

回复 6楼约定的童话

我改了不行。找不到文件路径
能给改改吗？
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编辑过]

#8

nmcfbgttyl2022-11-12 22:36

回复楼主 sncelpl

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

#9

lwlskydy2023-05-07 18:53

回复 8楼 nmcfbgttyl

能否把代码贴出来下？