ADO和DAO是VB访问数据库的两种常用的技术,连接数据库代码如下
Option Explicit
'定义Ado 变量
Dim adocon As Connection
Dim rsado As Recordset
'定义Dao变量
Dim daodb As DaoDatabase
Dim daors as DaoRecordset
Private Sub Form_Load()
'Ado访问数据库的代码
Set adocon=New Connection
adoconCursorLocation=adUseClient
adoconOpen "Provider=MicrosoftjetOLeDB35;Data Source=" & Apppath & "\adodaomdb;"
set rsado=New Recordset
rsadoopen "adodao",adocon,adOpenDynamic,adLockOptimistic
If rsadoRecordCount>0 Then
rsadoMoveLast
rsadomoveFirst
Text1Text=rsadoFields(0)
End If
'Dao 访问数据库的代码
set daodb=OpenDatabase(AppPath & "\adodaomdb")
set daors=daodbOpenRecordset("adodao",2)
If daorsRecordCount>0 Then
daorsMoveLast
daorsMoveFirst
Text2Text=daorsFields(0)
end if
end sub
以上就是关于学习VB 要学什么全部的内容,包括:学习VB 要学什么、如何用VB编写可以动态生成数据库和表的程序、VB考试教程:用FlexGrid控件来 *** 纵数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)