首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-11-05 
菜鸟求助vb读写数据库问题已知数据库名为A,含表格Bvb程序定义变量为c,如果要读取数据库中某一格的数据,并

菜鸟求助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.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 

热点排行