vb连接sql数据库的模块以及使用实例(详细)

vb连接sql数据库的模块以及使用实例（详细）

2009-01-13 15:48

2007年01月22日星期一下午 05:29

打开VB6.0,新建工程SQL_data,新建一个EXE，并添加一个模块。如图

一：添加引用和部件（如下两图）蓝色的两个，是要选中打勾的。

注意，一个是“引用”，一个是“部件”。

二：添加一个模块 Data_Sql，并把图下面的复制粘贴到模块中。

'连接SQL的模块

Public conn As ADODB.Connection

Public rs As ADODB.Recordset

Public addFlag As Boolean '声明部分

Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) 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 = Cip '服务器的名字conn.Properties("initial catalog").Value = "pubs" '库名

'conn.Properties("integrated security").Value = "SSPI" '登陆类型

conn.Properties("user id").Value = users 'SQL库名

conn.Properties("password").Value = pw '密码

'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User

ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '

如果不用这个模块也行可以，这一句便是常用的引擎。

'conn.ConnectionString = sql

conn.Open

OpenCn = True

If conn.State = 1 Then addFlag = True

Exit Function

strerrmag:

mag = "Data can't connect"

Call MsgBox(mag, vbOKOnly, "Error:Data connect")

addFlag = False

Exit Function '连接错误消息

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

'End '将记录集给rs

Exit Function

strerrmag:

mag = "data not connect"

Call MsgBox(mag, vbOKOnly, "error:connect")

openRs = False

End

'Exit Function '连接错误消息

End Function

Public Sub cloRs()

On Error Resume Next

If rs.State <> adStateClosed Then rs.Clone

Set rs = Nothing '释放记录集

End Sub

把它放入到模块文件中，以备调用。

三：下面两图是模块的代码图片和窗体的代码图片

Private Sub Command1_Click()

a = Trim(Text1.Text)

b = Trim(Text2.Text)

c = Trim(Text3.Text)

Call OpenCn(a, b, c)

If addFlag = True Then MsgBox ("OK")

Call openRs("select * from jobs")

Set DataGrid1.DataSource = rs

'rs.Close

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

四：运行时的图片（下面两图）到了这一步，一个简单的VB连接SQL 的例子就完成了。