初学者vb读写数据库有关问题

菜鸟求助vb读写数据库问题
已知数据库名为A，含表格B vb程序定义变量为c，如果要读取数据库中某一格的数据，并记录在c里面，print出来，该怎么做？

------解决方案--------------------

VB code


    '模块
    Public Con As ADODB.Connection
    Public Rcset As ADODB.Recordset
    Public Sqlstr As String 
     Public ConStr As String

    Sub Main()
    Set Con = New ADODB.Connection
    ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\A.mdb" & ";Persist Security Info=False"
    Con.Open ConStr
   Form1.Show
End Sub

'窗体

Set Rcset = New ADODB.Recordset
Sqlstr = "select * from B" 
Rcset.Open Sqlstr, Con, adOpenStatic, adLockPessimistic
If Rcset.RecordCount > 0 Then
    c=Rcset(下标)
End If
Rcset.Close

初学者vb读写数据库有关问题

相关推荐