vb中adodb的用法

发布网友 发布时间：2022-04-08 17:53

我来回答

共3个回答

懂视网 时间：2022-04-08 22:15

ADODB是Active Data Objects Data Base的缩写，与PDO一样，也是一个数据库抽象层。设计之初是为了解决PHP在存取不同数据库时采用不同的应用程序接口（API）的问题，使用ADODB能够使应用程序在不同数据库系统间的移植变得容易。

ADODB支持多种数据库，如MYSQL、Oracle、Postgre SQL、MS SQL server、Interbase、Informix、Sybase和DB2等。

可以从官方网站http://adodb.sourceforge.net/ 下载，是一个压缩包，解压到合适位置，在项目中引入核心文件“adodb.inc.php”就可以使用了。
代码示例： include (‘ adodb/adodb.inc.php‘)；

连接数据库3步曲：
1、确定要连接的数据库类型：MYSQL数据库示例： $conn = ADONewConnection( ‘ mysql ‘);
2、连接服务并选择数据库：$conn -> Connect($db_host, $db_user, $db_psw, $db_name );
3、关闭连接：$conn -> Close();

存取数据，在ADODB中存取数据，执行SELECT、INSERT、UPDATE、DELETE等SQL语句时可使用Execute()方法：
$result =  $conn -> Execute( $query );

ADODB

标签：

热心网友 时间：2022-04-08 19:23

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

热心网友 时间：2022-04-08 20:41

首先引用: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