UC知道VB如何使用ACCESS数据库（高分悬赏）急！！！！
来源：百度知道 编辑：UC知道 时间：2024/06/08 12:49:51
Private Sub Form_Click()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=D:\毕设\db1.MDB;" '建立连接
Set rs = New Recordset
rs.Open "select * from employee", db, adOpenStatic, adLockOptimistic '打开记录集
Dim i As Single
Form1.Scale (-50, 20)-(50, -20) '定义坐标系
Form1.Line (-50, 0)-(50, 0) '画x轴
Form1.Line (-50, 20)-(-50, -20) '画y轴
For j = 1 To 16 Step 1
''''''''''''''''''''''''''''''''''''''''''''''
'现在这里查询出数据库中id列的内容，j是列的序号
For i = -50 To 50 Step 0.01
Form1.PSet (i, Sin(i)), RGB(255, 0, 0)'想用查询出j的结果替代sin（i）
'''''''''''''''''''&
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=D:\毕设\db1.MDB;" '建立连接
Set rs = New Recordset
rs.Open "select * from employee", db, adOpenStatic, adLockOptimistic '打开记录集
Dim i As Single
Form1.Scale (-50, 20)-(50, -20) '定义坐标系
Form1.Line (-50, 0)-(50, 0) '画x轴
Form1.Line (-50, 20)-(-50, -20) '画y轴
For j = 1 To 16 Step 1
''''''''''''''''''''''''''''''''''''''''''''''
'现在这里查询出数据库中id列的内容，j是列的序号
For i = -50 To 50 Step 0.01
Form1.PSet (i, Sin(i)), RGB(255, 0, 0)'想用查询出j的结果替代sin（i）
'''''''''''''''''''&
sql = "select * from employee"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\毕设\db1.MDB;Persist Security Info=False"
Adodc1.RecordSource = sql
Adodc1.Refresh
zsl = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For i = 0 To zsl - 1
p = Val(Adodc1.Recordset(0))
Adodc1.Recordset.MoveNext
Next i
For i = -50 To 50 Step 0.01
Form1.PSet (i, p), RGB(255, 0, 0)
Next i
ADO对象的声明：
Dim db As Connection
Set db = New Connection
请修改成
Dim db As New ADODB.Connection
同样rs的声明如下：
Dim rs As New ADODB.Recordset