Question

VB怎么连接MSSql数据库？

VB怎么连接MSSql数据库？
回答要详细，让新手一看就懂的！~

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

要连接SQL数据库有两种方法用ADODC或ADO。
方法一: （ADODC)
首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB)。
之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Private Sub Form_Load()
ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"

ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名称"
ADODC1.Refresh
End Sub

方法二: (ADO)

首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library。

注意以下两段须写在程式最上面（Gerenal一般）中。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String

然后在Form_Load()输入以下代码：
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
cn.Open

If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
End Sub

Answer 3

根据之前发给你的程序。你看一下我写的代码。

将下面的
Private Sub Form_Load()
connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + App.Path + "\data.mdb" 'Access的
conn.Open connstr
'...
End Sub

代码改成：
Private Sub Form_Load()
connStr="Driver={SQL Server};DataBase=Master;Server=(local);UID=sa;PWD=123"'sql server的
conn.Open connstr
'...
End Sub

其中，
DataBase是数据库名，
Server是你的服务器名或是IP地址，本机可以写成(local)或是127.0.0.1
UID是数据库用户名
PWD是数库库用户的密码

楼上说的那种联接方式也是可以的。
但是如果用他的方法或是我的方法都要有下面的一步：

[工程]－[引用] Microsoftc ActiveX Data Object...(引用一个高版本的)

Answer 4

1、安装MSSQL或MSDE(需要另外安装企业管理器)，虽然通过运行Binn目录中的服务程序，也可以做为数据库服务器来使用，但是如果默认sa用户有密码已经更改的话，你是无法通过使用原有的服务器程序来连接任何数据库的。如果实在不想安装MSSQL的话，可以到网上找一个免安装绿色版试一下，不过没有企业管理器，你没有办法恢复数据库

2、把MicroData.mdf还原至刚刚安装完成的MSSQL中

3、程序中如下:
设置好ADO的引用
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=lanchong"
cn.CursorLocation = adUseClient
rs.Open "select * from sysdatabases", cn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs

你可以连接到SQL数据库中了，其中连接字符串的部分改成你自己的数据

Provider=SQLOLEDB.1;Password=安装时候选择的密码;Persist Security Info=True;User ID=sa;Initial Catalog=你还原后的数据库名称;Data Source=你的SQL服务器所在机器的机器名或IP

Answer 5

不用那么麻烦吧。直接用ADODC控件。。里的属性设置一下就能连接上。
语句一般是用不到。