电信交网费:怎样写与ACCESS+VB的数据库连接

来源：百度文库编辑：中科新闻网时间：2024/05/02 06:28:57

1.我需要用模块化思想做
2.在Splash Srean的过程中打开数据库，在用户登陆的时候打开记录集

Public Sub exec(sql As String)
Dim con As ADODB.Connection
Dim constr As String
Set con = New Connection
constr = "Provider=Microsoft.Jet.OlEDB.4.0;Data Source=" + App.Path + "\Fpwd.mdb;Persist Security Info=False;Jet OLEDB:Database password=" & dbpwd
con.Open constr
set rs=con.Execute (sql)
End Sub

调用的时候只要写好sql语句就可以了
记得用完要关闭记录集哦@!~

Public MdbConn As New ADODB.Connection
Public MdbRs As New ADODB.Recordset
'联接字符串
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & App.Path & "\FastSelect.mdb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
If Err.Number <> 0 Then
MsgBox "打开本地数据库出错!", vbInformation, App.Title
End
End If

怎样写与ACCESS+VB的数据库连接 ---这样的access数据库连接怎么写如何利用VB或ASP与ACCESS数据库连接制作选择题请帮我看看错在那里！VB与ACCESS数据库连接！ ASP与ACCESS数据库连接的问题 ASP与Access数据库连接： VB的编程如何与数据库连接呢？怎样做一个asp与access数据库连接测试小程序? asp与access数据库连接问题问下这段与access数据库连接更新的代码错在哪?