VB与SQL连接

来源：百度知道 编辑：UC知道 时间：2024/06/14 06:27:13
我现在有一个数据库test，里面有一个表phone，表中字段为“姓名”，“电话”，“年龄”，“地址”，登录方式为Wondows NT身份验证，
我想用VB来显示该数据库中的数据，VB中有文本框text1,text2,text3,text4，分别用来显示以上四个字段内容，另外有两个按钮“上一条”“下一条”，我需要运行VB时就显示一条记录，并可以点击上面的“上一条”和“下一条”来读取不同的记录，用ADODC控件可以实现，但我想不用控件，直接编写代码来实现，请问该如何编写？请高手帮帮忙，包括建立与数据库的连接，读取其中的数据等语句，十分感谢！

Set CN = New ADODB.Connection
CN.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=test"
CN.Open
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
这个不用控件，不明加420079219 qq

Option Explicit
Public rst As Recordset
Public conn_SB As String
Public sqlstr As String
Public cnn As New ADODB.Connection
Private Sub Form_Load()
cnn.Open ("odbc;driver={SQL Server};server=服务器名;uid=sa;database="test";pwd=")
sqlstr = "select * from phone"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open sqlstr
Set rst.ActiveConnection = cnn
End Sub