用vb怎么连接SQL数据库

Question

建立酒店餐饮管理信息系统，用VB连接用SQL 建立的数据库。数据库已经建立好了，没有问题，但VB运行登录时出现错误：[DBNETLIB][ConnectionOpen(Connect()).]SQL Server 不存在或拒绝访问。源代码是：Private Sub cmdOK_click()
Adodc1.RecordSource = "select * from Table_Users where 用户名='" + Trim(Text1.Text) + "'and 密码='" + Trim(Text2.Text) + "'"
Adodc1.Refresh （显示此处出现错误）
If Adodc1.Recordset.RecordCount > 0 Then

strOk = Adodc1.Recordset.Fields("级别")
If strOk = "系统操作员" Then
frm_main.gkgl.Enabled = True
frm_main.gkxx.Enabled = True
frm_main.gkxxcx.Enabled = True
frm_main.yggl.Enabled = True
frm_main.ygxxgl.Enabled = True
frm_main.ygxxcx.Enabled = True
frm_main.yygl.Enabled = True
frm_main.ycgl.Enabled = True
frm_main.frm_dcd.Enabled = True
frm_main.jzgl.Enabled = True
frm_main.cygl.Enabled = True
frm_main.cd.Enabled = True
frm_main.jclb.Enabled = True
frm_main.cxsz.Enabled = True
frm_main.jcsm.Enabled = True
frm_main.ftgl.Enabled = True
frm_main.ftsz.Enabled = True
frm_main.bmsz.Enabled = True
frm_main.lbsz.Enabled = True
frm_main.xffs.Enabled = True
frm_main.qxgl.Enabled = True
frm_main.yhgl.Enabled = True
frm_main.mmsz.Enabled = True
frm_main.qxsz.Enabled = True
frm_main.sjbf.Enabled = True
frm_main.sjhf.Enabled = True

ElseIf strOk = "普通操作员" Then
frm_main.gkgl.Enabled = True
frm_main.gkxx.Enabled = True
frm_main.gkxxcx.Enabled = True
frm_main.yggl.Enabled = True
frm_main.ygxxgl.Enabled = True
frm_main.ygxxcx.Enabled = True
frm_main.yygl.Enabled = True
frm_main.ycgl.Enabled = True
frm_main.frm_dcd.Enabled = True
frm_main.jzgl.Enabled = True
frm_main.cygl.Enabled = True
frm_main.cd.Enabled = True
frm_main.jclb.Enabled = True
frm_main.cxsz.Enabled = True
frm_main.jcsm.Enabled = True
frm_main.ftgl.Enabled = True
frm_main.ftsz.Enabled = True
frm_main.bmsz.Enabled = True
frm_main.lbsz.Enabled = True
frm_main.xffs.Enabled = True
frm_main.qxgl.Enabled = False
frm_main.yhgl.Enabled = False
frm_main.mmsz.Enabled = False
frm_main.qxsz.Enabled = False
frm_main.sjbf.Enabled = False
frm_main.sjhf.Enabled = False

End If
Unload Me
Load frm_main

frm_main.Show
Else
MsgBox "输入错误，请重新输入！"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub

End If

End Sub

Answer 1

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

Answer 2

界面加载的时候没有链接数据库，可能会提示这样的错误！
那么也可以在按“登陆”按钮那里加一些语句，allenssh已经回答了，不过他链接的数据库是ACCESS的，你将驱程改写成SQL的咯，Adodc1.ConnectionString = "Provider=SQLOLEDB;Data Source=你的服务器名称，在本机也可以用(local)；user id=sa;password=;";
这种连接方式是sql与windows集成验证，如果连接不成功，那么就打开企业管理器，找到已经注册了的SQL Server组（该组包含有你建立的数据库）--右键“属性”--找到“安全性”选型卡，身份验证那里选中sql server和windows就可以啦！

Answer 3

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你数据库的名称"

Dim strquery As String
strquery = "select * from Table_Users where 用户名='" & Trim(Text1.Text) & "'and 密码= '" & Trim(Text2.Text) & "'"
Adodc1.RecordSource = strquery
Adodc1.Refresh

这样应该就ok了 希望能帮到你本回答被提问者采纳