seo网站优化教程,asp网站开发的实训,wordpress md,怎么自己制作一个网站下载器打开VB6.0,新建工程SQL_data,新建一个EXE#xff0c;并添加一个模块。如图 。 一#xff1a;添加引用和部件(如下两图)蓝色的两个#xff0c;是要选中打勾的。 注意#xff0c;一个是“引用”#xff0c;一个是“部件”。 二#xff1a;添加一个模块 Data_Sql#xff0c… 打开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 ProviderSQLOLEDB.1;Persist Security InfoFalse;User IDsa;password;Initial Catalogpubs;Data Source127.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 addFlag True Then MsgBox (OK) Call openRs(select * from jobs) Set DataGrid1.DataSource rs rs.Close End SubPrivate Sub Command2_Click() Unload Me End Sub 四运行时的图片(下面两图) 到了这一步一个简单的VB连接SQL的例子就完成了 SQL, vb SQL数据库中自动记录时间 VBDatagrid1的应用
