大佬们帮帮忙改下啊 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 大佬们帮帮忙改下啊

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1705 人关注过本帖

标题：大佬们帮帮忙改下啊

取消只看楼主加入收藏

sncelpl

等　级：新手上路
帖　子：87
专家分：0
注　册：2006-6-28
结帖率：86.67%

楼主

已结贴√ 问题点数：20 回复次数：2

大佬们帮帮忙改下啊

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
那个大佬帮我改下谢谢。