UC知道vb+sql数据库不用每次都连接
来源：百度知道 编辑：UC知道 时间：2024/05/10 19:26:38
我最近用VB跟SQL2000做一个软件，想连接数据库，把数据库文件放在工程的文件夹里面，希望无论工程文件夹到哪台电脑都不用重新连接数据库，请问应该在FORM LOAD里面写什么语句，以下是朋友用ACCESS做的示范，但是strconn =不知道应该改成什么才可以用上SQL数据库，请高手指点
Private Sub Form_Load()
Dim strconn$
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\玩具样品管理.mdb;Persist Security Info=False"
Adodc1.ConnectionString = strconn
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "用户"
Adodc1.Refresh
Label5 = Now
End Sub
想再请教一下，如果我只是想在当前页面使用ADO控件呢？能不否实现我那个标题的功能
Private Sub Form_Load()
Dim strconn$
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\玩具样品管理.mdb;Persist Security Info=False"
Adodc1.ConnectionString = strconn
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "用户"
Adodc1.Refresh
Label5 = Now
End Sub
想再请教一下，如果我只是想在当前页面使用ADO控件呢？能不否实现我那个标题的功能
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
conn.open "Provider = "SQLOLEDB.1; Persist Security Info=True; Initial Catalog=你的数据库名字; Data Source=你自己机子SQL的名字"
这是SQL没有ID和密码的方法 如果有加上点东西就可以了
（uid=登录名;pwd=密码;）
Adodc1是数据控件，在特定的页面使用Adodc1控件是可以的，但是如果在程序中使用数据库最好是在模块中设置函数或过程，这个函数或过程可以是数据控件链接语句，也可以是DAO数据库链接语句。然后在窗体调用函数或过程就可以。
SQL数据源的链接过程：
Sub SJK(db)
'连接数据库
db.ConnectionTimeout = 10
db.CursorLocation = adUseServer
db.ConnectionString = "driver={SQL Server};server=服务器名;uid=登录名;pwd=密码;database=数据源名称"
db.Open
End Sub
这个过程必须在引用中添加相应的引用！
你把数据库文件和程程序放在一个文件夹下