vb连接sql数据库的模块以及使用实例(详细)
2013-01-21 11:50
387 查看
打开VB6.0,新建工程SQL_data,新建一个EXE,并添加一个模块。如图
一:添加引用和部件(如下两图)蓝色的两个,是要选中打勾的。
注意,一个是“引用”,一个是“部件”。
二:添加一个模块
Data_Sql,并把图下面的复制粘贴到模块中。
'连接SQL的模块
把它放入到模块文件中,以备调用。
三:下面两图是模块的代码图片和窗体的代码图片
Private
Sub Command1_Click()
四:运行时的图片(下面两图) 到了这一步,一个简单的VB连接SQL的例子就完成了。
一:添加引用和部件(如下两图)蓝色的两个,是要选中打勾的。
注意,一个是“引用”,一个是“部件”。
二:添加一个模块
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 SubPrivate Sub Command2_Click() Unload Me End Sub
四:运行时的图片(下面两图) 到了这一步,一个简单的VB连接SQL的例子就完成了。
相关文章推荐
- 无法将 Ethernet0连接到虚拟网络 VMnet8 以及无法使用桥接的详细解决步骤
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- 无法将 Ethernet0连接到虚拟网络 VMnet8 以及无法使用桥接的详细解决步骤
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- xlrd的使用详细介绍以及基于Excel数据参数化实例详解
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- Java使用jdbc连接MySQL数据库详细实例
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- SQL JOIN 连接详细介绍及简单使用实例
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- VB连接SQL数据库实例
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- go语言 xorm框架 postgresql 使用实例以及详细注解
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发
- VLC详细的使用说明以及配置说明综合示范实例精通VLC开发