UC知道VB来查询server 2000中的数据
来源：百度知道 编辑：UC知道 时间：2024/05/18 00:27:50
我想做一个用VB来查询server 2000中的数据，我想在VB界面上显示我查询的结果！比如，我数据库叫student,uid=sa,password= 查询语句select sno from std where sn='1111'
详细给出VB的代码，谢谢了！！！
谢谢你！我测试了一下，能过通过！谢谢你！如果是插入向数据库里面的插入数据怎么做呢？谢谢！
详细给出VB的代码，谢谢了！！！
谢谢你！我测试了一下，能过通过！谢谢你！如果是插入向数据库里面的插入数据怎么做呢？谢谢！
1.先在工程---引用里面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,将其勾选，为写代码做准备
2，在窗体上放一个combo1和command1
3，代码
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Driver={SQL Server};SERVER=数据库机器ip;DATABASE=student;UID=sa;PWD="
sql = "select sno from std where sn='1111'"
rs.Open sql, conn, 3, 1
While Not rs.EOF
Combo1.AddItem rs("sno")
rs.MoveNext
Wend
Set conn = Nothing
Set rs = Nothing
End Sub
这样你要查询的字段sno就会全部显示在下拉框中，你可以试试，不过连接数据库的时候要输入正确的ip，数据可名称，用户名，密码。