大佬们帮帮忙改下啊

sncelpl 发布于 2022-07-06 10:43， 2026 次点击

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
我想把这个连接改成SQL
IP=192.168.1.8
用户名=sa
密码=sa
数据库=DLSY
那个大佬帮我改下谢谢。

5 回复

风吹过b2022-07-06 11:03

你新建一个工程，引用控件 adobc （Microsoft ADO Date Control 6.0），然后在控件上点右键，选择 ADODC属性
通用选项卡中选择使用连接字符串，再点后面的生成，按向导一步一步的生成。
确定后，会自动生成连接字符串
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DLSY;Data Source=192.168.1.8

复走吧，然后工程不用保存了。

sncelpl2022-07-06 11:11

回复 2楼风吹过b

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

不行啊

风吹过b2022-07-06 11:14

你直接在 ADODC 里测试，测试通过再拿到工程里.

如果有 ACCESS 的话，到这里面测试。实在没有。也可以使用 VB6 自带的数据编辑器（VISDATA）进行测试。

没有环境，所以无法测试你的问题所在。

sncelpl2022-07-06 11:18

回复 4楼风吹过b

我用VB编写的MSSQL数据库连接测试工具测试可以，但在这不行。报错

cwa99582022-07-06 15:10

新建一个文本文件,把扩展名改为 udl ,然后双击这个文件,会出来个数据库连接属性对话框,选择相应的程序,只要测试连接成功就是了.然后用记事本打开.有Provider= 的这行就是连接代码了.
没有sql数据库，不好测试。