菜鸟求助vb读写数据库问题
已知数据库名为A,含表格B vb程序定义变量为c,如果要读取数据库中某一格的数据,并记录在c里面,print出来,该怎么做?
[解决办法]
'模块 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.ShowEnd Sub'窗体Set Rcset = New ADODB.RecordsetSqlstr = "select * from B" Rcset.Open Sqlstr, Con, adOpenStatic, adLockPessimisticIf Rcset.RecordCount > 0 Then c=Rcset(下标)End IfRcset.Close