Question

vb如何连接sql数据库

高手帮帮忙..
我的qq：530142380，谢谢了...

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

VB连接SQL数据库的模块:
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean

Public Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "127.0.0.1" ''服务器的名字
conn.Properties("initial catalog").Value = "chart" ''库名
conn.Properties("integrated security").Value = "SSPI" ''登陆类型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can''t connect"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function

Public Sub clocn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub

Public Function openrs(ByVal strsql As String) As Boolean ''连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openrs = True
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKCancel, "error:connect")
openrs = False
End
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub

Answer 3

用ADO控件。连接源选用odbc，当然在使用之前要先建立一个与你的sql server 库相连的数据源。
数据源建立方法：控制面板->管理工具->数据源。在里边添加新的数据源，驱动程序选最后的sql server。

Answer 4

具体方法和代码如下：
set
conn=server.createobject("adodb.
connection
")
变量名="driver=sql
server;server=IP地址;database=数据库名;uid=用户名;pwd=密码"
conn.open
变量名
"conn"是你设置的对象名
"变量名"
为自定义
"IP地址"
你计算机的IP
"数据库名"
你数据库的名称
"用户名"和"密码"
sql
server安装时的设置，如果你安装时用的是windows
身份验证
，那么你就要新建一个用户，
新建用户在
企业管理器
里面。
如果安装时用的是sql
server身份验证，那么它的默认用户名为"sa"
密码有空，就是没有密码的意思。
如果你不知道你安装时用的是
windows身份验证
还是
sql
server身份验证
那么你可以打开查询分析器，在那里可以看见

Answer 5

最简单就用控件，不简单用引用，然后写代码
因为连接SQL要引用，所以看一下这里比较清楚
http://hi.baidu.com/29277723/blog/item/a7bd0fa7877a6892d143588e.html