怎么和数据库连接上

izdlywn 2003-08-19 01:03:51
我刚学不久,想请教各位大侠:vb怎么和数据库连接上啊?都有什么方法?我现在想用vb和Access连接,做一个小型个人用的东西,请给些指教,谢谢。
...全文
66 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
strongfisher 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
izdlywn 2003-08-19
  • 打赏
  • 举报
回复
谢谢
didishu0807 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x
public g_conn as new adodb.connection

Public Function link() As Boolean
link= False
On Error GoTo ErrHandler
With g_Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\xx.mdb;Persist Security Info=False" '数据库连接字符串
.CommandTimeout=15
.CursorLocation=adUseClient
.Open
End With

DBConnect = True
Exit Function
ErrHandler:
MsgBox "打开数据库连接失败,请检查数据文件是否存在!", vbOKOnly, "系统错误"
End Function
lihonggen0 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
lihonggen0 2003-08-19
  • 打赏
  • 举报
回复
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧