准备工作：

1.VB新增引用dll——Microsoft Activex Data Object 2.8 Library

2.创建.udl文件，设定数据库链接，获取ConnectionString

ADO应用示例：

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

‘打开数据库
cn.ConnectionString = “Provider=SQLOLEDB.1;Password=Mindsoft;Persist Security Info=True;User ID=sa;Initial Catalog=Tiger_Demo;Data Source=.”
cn.Open

‘打开Recordset
‘    sql = “select goodscode, goodsname, unitname, barcode, enabled, Expend6 from bas_goods”
sql = “select goodscode, goodsname, unitname, barcode, enabled, Expend6 from bas_goods where goodsname = ‘毛衣’”
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

‘在记录集中循环并更改指定栏位的值
Do While Not (rs.BOF Or rs.EOF)
Debug.Print rs.Fields(“goodscode”).Value, rs.Fields(“goodsname”).Value, rs.Fields(“unitname”).Value
‘修改goodsname的值为”夹克”
rs.Fields(“goodsname”).Value = “夹克”
rs.Update
rs.MoveNext
Loop

‘新增一行
rs.AddNew
rs.Fields(“goodscode”) = “200007″
rs.Fields(“goodsname”) = “夹克”
rs.Fields(“unitname”) = “件”
rs.Fields(“barcode”) = “200007″
rs.Fields(“enabled”) = 1
rs.Fields(“Expend6″) = 0
rs.Update

‘删除指定行
cn.Execute “delete from bas_goods where goodscode = ’200007′”

rs.Close
cn.Close

End Sub

本文固定链接: http://blog.mdsoft.cn/?p=171 | 铭达开发文档