Question

数据库和VB 连接问题

数据库和VB 连接问题
一直连接不上 提示 没发发现数据源或驱动程序 在控制面版已经弄好了数据源了 就是他发现不了
数据源名称是 students 在数据库 建立好了
是不是代码有问题?

Private Sub Form_Load()
Dim myconn As New ADODB.Connection '连接数据库的Connection对象
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim connstr As String
connstr = "dsn=myconn"
If myconn.State = 0 Then
myconn.Open connstr
End If
Set rs1 = myconn.Execute("select classinfo from class")
If Not rs1.EOF Then
Do While Not rs1.EOF
Combo1.AddItem Trim(rs1.Fields("classinfo"))
rs1.MoveNext
Loop
End If
Set rs2 = myconn.Execute("select * from course")
If Not rs2.EOF Then
Do While Not rs2.EOF
Combo2.AddItem Trim(rs2.Fields("course_name"))
rs2.MoveNext
Loop
End If
End Sub

Answer 1

Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\123.mdb;persist security info=false"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from test"
Adodc1.Refresh
Combo2.AddItem "编号"
Combo2.AddItem "摩托车"
Combo3.AddItem "辆数"
Combo3.AddItem "车牌号"
Combo3.Text = "辆数"
Combo2.Text = "编号"
Combo1.Text = Adodc1.Recordset.Fields("编号")
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields(Combo2.Text).Value
Adodc1.Recordset.MoveNext
Loop
End Sub

这是我用的一个连接代码 你可以看看

Answer 2

connstr = "dsn=myconn"

可以这样连吗？用户名和密码都没写啊，肯定不行。

Answer 3

机器要装ORACLE的客户端