vb连接sql数据库的模块以及使用实例.docxVIP

打开?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?cant?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?addF