Question

VB连接数据库谢谢了，大神帮忙啊

代码如下 如何添加数据库连接 如果有提供VB的电子学习文档更好 Private Sub CommandOK_Click() '在这个位置添加 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub Private Sub Form_Load() End Sub

Answer 1

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例： 1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。 2、接下来定义ADO的连接对象，如下所示： Set conn = New ADODB.Connection Set rs = New ADODB.Recordset 第一种方法采用的是无源的数据库连接方法 conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc" conn.ConnectionTimeout = 30 conn.Open rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText If rs.EOF = True And rs.BOF Then m = MsgBox("请重新登录", vbExclamation) Text1.Text = "" Text1.SetFocus Else Form1.Hide End If rs.Close 这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示： Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "DSN=login;uid=sa;pwd=;" conn.ConnectionTimeout = 30 conn.Open rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText Dim i As String For t = 0 To Val(rs.RecordCount) - 1 i = Trim(rs.Fields("用户名").Value) rs.MoveNext Combo1.AddItem i Next t rs.Close

Answer 2

'''引用MS Data ActiveX Object Private Sub CommandOK_Click() Dim con As New Connection '数据库连接对象 Dim rs As New RecordSet '数据集对象 con.ConnectionString = "你的数据库连接字符串" con.Open '打开数据库连接 rs.Open "select * from tb_name", con '查询结果在rs里 '你要做的 '... '最后关闭 con.Close Set rs = Nothing Set con = Nothing End Sub