求VB使用ADODB *** 作数据库的常用方法.

呵呵，是你太懒啦，你在网上搜一下很多示例。你搜索ADO

VB就可以找到

定义数据库，记录集

Dim

conn

As

New

ADODB.Connection

‘---定义数据库连接

Dim

rs

As

New

ADODB.Recordset

’---定义记录集

csql

=

"select

*

from

table

where

你的条件"

RS.open

csql,3,3

if

RS.recordcount

=

0

Then

RS.addnew

'---插入

RS(0)

=

...

RS(1)

=

...

RS(n)

=

..

RS.update()

else

更新

RS(0)

=

...

RS(n)

=

..

RS.Update()

更新

如果是删除，则RS.delete()

end

IF

如果只是查询，用RS.open

csql,conn,1,1就行

插入还可以使用

csql

=

"insert

into

table

(字段列表）

vlaues(对应值)"

RS.open

csql,conn,3,3

删除也可以用

csql

=

"delete

from

table

where

条件”

RS.open

csql,conn,3,3

CnStr = "Provider=SQLOLEDBData Source=" &DbIp &"DATABASE=" &DbName &"UID=" &DbUser &"pwd=" &DbPw

DbIp ip地址

DATABASE 数据库名字

DbUser 用户名

DbPw 密码

Dim conn As New ADODB.Connection

CnStr = "Provider=SQLOLEDBData Source=192.168.29.21DATABASE=dsyUID=sapwd=abc"

Conn.Open cnstr

Sql = "select * from 表名" 'SQL查询语句

Set rs = New ADODB.Recordset '新建一个记录集实例

rs.Open Sql, conn, 1, 3 '后面的3是确定读写权限的

---