vb连接sql数据库，VB怎么连接SQL Server数据库

在这个信息爆炸的时代，了解vb连接sql数据库和VB怎么连接SQL Server数据库的重要性不言而喻。本文将为您带来全面的解读，助您在这个领域中游刃有余。

在VB里怎么连接sql数据库

一、配置ODBC数据源

1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。

2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成

3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。

4、选择使用用户输入登录的ID和密码的SQL验证

。选连接SQL默认设置

5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。

二、VB中设置连接

1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。

2、对ADO部件点右键选属性，选择使用连接字符串，按生成。

3、选择Mircosoft OLE DB Providar for SQL Server

按下一步

4、

1、输入服务器名称

2、使用指定的服务器信息

3、在服务器上选择数据库

这时就选择你在SQL Server建好的数据库就行了

5、测试连接可以看到连接是否成功！

VB如何连接SQL数据库

一个用VB连接SQL数据库连接的模块2007年01月22日星期一下午 05:29下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单：

代码如下：

Public rsNew As ADODB.Recordset

Public CnNew As ADODB.Connection

Public addFlag As Boolean

'连接数据库

Public Function OpenCn() As Boolean

Dim Mag As String

On Error GoTo strErrMag

Set CnNew= New ADODB.Connection

CnNew.ConnectionTimeout= 25

CnNew.Provider="sqloledb"

CnNew.Properties("data source").value=""'SQL服务器的名

CnNew.Properties("initial catalog").value="pubs"'库名

CnNew.Properties("integrated security").value="SSPI"'登陆类型

'con.Properties("user id").value="sa"

'con.Properties("password").value="wwww"

CnNew.Open

OpenCn= True

addFlag= True

Exit Function

strErrMag:

Mag="数据库末连接"

Call MsgBox(Mag, vbOKCancel,"错误:数据库连接")

addFlag= False

End

End Function

Public Sub Clocn()

'闭关数据库

On Error Resume Next

If CnNew.State<> adStateClosed Then CnNew.Close

Set CnNew= 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 rsNew= New ADODB.Recordset

If addFlag= False Then rpy= OpenCn

With rsNew

.ActiveConnection= CnNew

.CursorLocation= adUseClient

.CursorType= adOpenKeyset

.LockType= adLockOptimistic

.Open strSql

End With

addFlag= True

OpenRs= True

Exit Function

strErrMag:

Mag="数据库数据集末连接"

Call MsgBox(Mag, vbOKOnly,"错误:数据库连接")

OpenRs= False

End

End Function

Public Sub cloRs()

'闭关数据集

On Error Resume Next

If rsNew.State<> adStateClosed Then rsNew.Close

Set rsNew= Nothing

End Sub

只要在你的标准模块中加入该代码，你就可以使用其中的函数来连接数据源了。

VB怎么连接SQL Server数据库

VB连接数据库方式主要有两种，一是通过ODBC接口，ODBC是windows系统里提供的接口，专门连接数据库的，可以连接多种数据库，在应用电脑的设置ODBC，也就DSN数据源（下面说到的），连接到服务器。

第二种就是ADO方式，

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn= New ADODB.Connection

Set rs= New ADODB.Recordset

第一种方法采用的是无源的数据库连接方法

conn.ConnectionString="Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

conn.ConnectionTimeout= 30

conn.Open

rs.Open"select用户名,密码 from login where用户名='"& Trim(Combo1.Text)&"' And密码='"& Trim(Text1.Text)&"'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF= True And rs.BOF Then

m= MsgBox("请重新登录", vbExclamation)

Text1.Text=""

Text1.SetFocus

Else

Form1.Hide

End If

rs.Close

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn= New ADODB.Connection

Set rs= New ADODB.Recordset

conn.ConnectionString="DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout= 30

conn.Open

rs.Open"select用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t= 0 To Val(rs.RecordCount)- 1

i= Trim(rs.Fields("用户名").Value)

rs.MoveNext

Combo1.AddItem i

Next t

rs.Close

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn= New ADODB.Connection

Set rs= New ADODB.Recordset

第一种方法采用的是无源的数据库连接方法

conn.ConnectionString="Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

conn.ConnectionTimeout= 30

conn.Open

rs.Open"select用户名,密码 from login where用户名='"& Trim(Combo1.Text)&"' And密码='"& Trim(Text1.Text)&"'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF= True And rs.BOF Then

m= MsgBox("请重新登录", vbExclamation)

Text1.Text=""

Text1.SetFocus

Else

Form1.Hide

End If

rs.Close

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn= New ADODB.Connection

Set rs= New ADODB.Recordset

conn.ConnectionString="DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout= 30

conn.Open

rs.Open"select用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t= 0 To Val(rs.RecordCount)- 1

i= Trim(rs.Fields("用户名").Value)

rs.MoveNext

Combo1.AddItem i

Next t

rs.Close

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

vb如何连接sql数据库

具体方法和代码如下：

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身份验证

那么你可以打开查询分析器，在那里可以看见

好了，文章到此结束，希望可以帮助到大家。