数据库连接问题

Question

如何用vb连接本地的SQlSERVER数据库，然后打开一个表，然后对该表进行添加，修改，删除操作！

Answer 1

例子:
'引用Microsoft ActiveX Data Objects 2.x Library
Sub test()
    Dim iDb As New ADODB.Connection '定义数据库连接对象
    Dim iRe As New ADODB.Recordset  '定义打开表的对象
    
    '打开本地SQL
    iDb.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名"
    
    '用SQL语句更新数据
    iDb.Execute "update 表 set aa=1"
    
    '打开表
    iRe.Open "表名", iDb, adOpenKeyset, adLockPessimistic
    iRe.AddNew  '新增一个记录
    iRe("字段名") = "值"
    iRe.Update  '回写到数据库中
    
    '关闭表对象
    iRe.Close
    
    '关闭数据库
    iDb.Close
End Sub

Answer 2

还可以使用odbc api函数！地址：http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odbc/htm/odch20pr_1.asp

Answer 3

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
    '添加
    rs.addnew
    rs.fields("字段")="xxxxxxxx"
    '更新数据库
    rs.update

Answer 4

执行sql 语句该表进行添加，修改，删除操作   cn.execute "你的sql语句"实例：
   cn.execute "insert into table........."
   cn.execute "update table set 字段=......"

Answer 5

首先在引用中添加 microsoft activex data objects 2.6 liabrary
然后按楼上各位兄台的方法即可