http://www.programbbs.com/doc/466.htmhttp://www.kehui.net/html/article/26/26769.htmlhttp://www.yesky.com/imagesnew/software/ado/index.html 一、引用ADO部件 要使用ADO操作数据库，首先必须将“Microsoft ActiveX data objects 2.0 library”引入工程，在VBA中，是通过“工具/引用”菜单，在VB中，是通过“工程/引用”菜单调出对话框，然后在左侧列表中找到该项并将其前面的选择框选中。 二、创建ADO对象 方法一： dim ... as 方法  dim conn as adodb.connection '连接对象  dim cmd as adodb.command     '命令对象  dim para as adodb.parameters '参数对象  dim rs as adodb.recordset    '数据集对象 方法二： set ... new 方法  set conn = new adodb.connection  set cmd = new adodb.command  set para = new adodb.parameters  set rs = new adodb.recordset 三、创建数据库连接   dim strconn as string  strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database;Data Source=servername"  '指定连接字符串  conn.ConnectionString = strconn               conn.Open 四、发送命令 这里用第三种方法使用连接对象来插入数据 Private Sub Command4_Click()  Dim strsql As String  strsql = "insert_users  '" & Trim(txttruename.Text) & "','" & Trim(txtregname.Text) & "','" & Trim(txtpwd.Text) & "','" & Trim(txtsex.Text) & "','" & Trim(txtemail.Text) & "','" & Val(txtjifen.Text) & "'"  Set rs3 = New ADODB.Recordset  Set rs3 = mConn.Execute(strsql)    Set rs3 = Nothing End Sub

评论