vb連接sql數(shù)據(jù)庫(kù)的模塊以及使用實(shí)例

1、打開(kāi)VB6.0,新建工程SQL_data,新建一個(gè)EXE，并添加一個(gè)模塊。如圖一：添加引用和部件（如下兩圖）藍(lán)色的兩個(gè)，是要選中打勾的。注意，一個(gè)是“引用”，一個(gè)是“部件”。              二：添加一個(gè)模塊 Data_Sql，并把圖下面的復(fù)制粘貼到模塊中。             '連接SQL的模塊Public con

2、n As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic addFlag As Boolean      '聲明部分Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '連接模塊 填寫(xiě)數(shù)據(jù)庫(kù)等信息Dim mag As StringOn Error GoTo strerrmagSet conn = New ADODB.Connectio

3、nconn.ConnectionTimeout = 25conn.Provider = "sqloledb"conn.Properties("data source").Value = Cip     '服務(wù)器的名字conn.Properties("initial catalog").Value = "pubs"          '庫(kù)名'conn.Propert

4、ies("integrated security").Value = "SSPI"      '登陸類(lèi)型conn.Properties("user id").Value = users 'SQL庫(kù)名conn.Properties("password").Value = pw '密碼'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;passwo

5、rd=;Initial Catalog=pubs;Data Source="    '如果不用這個(gè)模塊也行可以，這一句便是常用的引擎。'conn.ConnectionString = sql              conn.OpenOpenCn = TrueIf conn.State = 1 Then addFlag = TrueExit Functionstrerrmag:&#

6、160;    mag = "Data can't connect"     Call MsgBox(mag, vbOKOnly, "Error:Data connect")     addFlag = False     Exit Function      '連接錯(cuò)誤消息End Function'關(guān)閉數(shù)據(jù)庫(kù)，釋放連接Public

7、Sub cloCn()On Error Resume NextIf conn.State <> adStateClosed Then conn.CloseSet conn = NothingEnd SubPublic Function openRs(ByVal strsql As String) As Boolean      '連接數(shù)據(jù)庫(kù)記錄集Dim mag As StringDim rpy As BooleanOn Error GoTo strerrmag     Set rs =

8、 New ADODB.Recordset     If addFlag = False Then rpy = True     With rs     .ActiveConnection = conn     .CursorLocation = adUseClient     .CursorType = adOpenKeyset     .LockType

9、= adLockOptimistic     .Open strsql     End With     addFlag = True     openRs = True     'End        '將記錄集給rs     Exit Functionstrerrmag

10、:     mag = "data not connect"     Call MsgBox(mag, vbOKOnly, "error:connect")     openRs = False     End     'Exit Function '連接錯(cuò)誤消息End FunctionPublic Sub cloRs()On Error R

11、esume NextIf rs.State <> adStateClosed Then rs.CloneSet rs = Nothing '釋放記錄集End Sub把它放入到模塊文件中，以備調(diào)用。三：下面兩圖是模塊的代碼圖片和窗體的代碼圖片       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.DataSour