Question

vb中adodb的用法

在vb中adodb应该是直接都可以用的,可是我总是搞不成功,水有这样的简单的例子,拜托帮忙告诉我一下

Answer 1

ADODB先要引用才可以的
Dim myconn As New ADODB.Connection
Dim myrecord As New ADODB.Recordset
Set myconn = New ADODB.Connection
myconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb"
myconn.Open
Set myrecord = New ADODB.Recordset
myrecord.Open "insert into 学生表 (ID,姓名,班级,性别,民族,年龄) values(30318,'邹六峰','高一一班',0,'汉',2)", myconn, adOpenDynamic, adLockOptimistic
myrecord.Open "select * from 学生表 where ID =30318", myconn, adOpenDynamic, adLockBatchOptimisti

Answer 2

首先引用:MS activeX data object 2.0 libr...或更高

1 与数据库建立连接
Option Explicit
Public cn As ADODB.Connection
Sub Mdb_open()
Set cn = New ADODB.Connection
On Error Resume Next
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydate.mdb" & ";Jet OLEDB:Database Password=51082481;Persist Security Info=False"
End Sub
2 运用方法
Private Sub Command2_Click()
Dim rs As ADODB.Recordset
sql = "select * from 表"'sql语句 核心,根据目的不同 语法也不一样
set rs = cn.Execute(sql)'执行语句
if not rs.eof then '如果存在记录
...要作的事情
end if
set rs=nothing
End Sub