龙骑士用什么武器好:关于VB连接SQL数据库的问题

来源:百度文库 编辑:中科新闻网 时间:2024/03/29 02:24:34
我用sql server,ado访问数据库,有没有不用设置数据源访问数据库的方法?最好给出语句
还有数据库文件必须放在sql server的目录下么,能不能换个自己的路径?我初学,谢谢

完全可以.
给个例子你参考一下:
Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装..." & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示"
Shell (App.Path & "\Installdb.exe")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示"
End
End If
End Sub

可以不用设置数据源访问数据库的方法。不用放在sql server的目录下,在VB的工程文件的目录中建立即可。

vb的adodb控件会用吧?
在那里添加sql语句
我用的方法是设置一个隐藏的textbox,
把sql语句读进去

另外数据库文件我没试过
不知道能不能改位置

可以用工ADODB呀,把连接数据库的语句都用代码写出来我就喜欢这样做项目控制起来也容易一些。
Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

无帐号密码的连接 ConnectString = " DRIVER=SQL Server;SERVER=伊广舜(SQL服务器名);APP=Visual Basic;WSID=伊广舜;DATABASE=物资管理系统;Trusted_Connection=Yes"

有帐号密码(sa)con.ConnectionString = "DRIVER=SQL Server;SERVER=" & "" & ";UID=sa;PWD=" & "" & ";DATABASE=cc"
con.Open