vb怎样执行ｓｑｌ语句

Question

Private Sub cmdTouroku_Click()
Dim strSql As String'insert into SYAIN values('10002','aaaaaa','男','2003/01/01','000-000','aa','bb','cc','dd','ee','2003/01/01','2003/01/01','2003/01/01','2003/01/01')
strSql = "Update SYAIN set seimei='qqqqqq' where syainid='10001'"
Execute strSql    
End Sub

Answer 1

方法很多，讲一个我常用的：（代码仅供参考）
引用Microsoft ActiveX Data Objects 2.0 Library
    Dim strOpen As String, strSql As String
    Dim cn As New Connection
    strSql = "DROP TABLE " & strTable
    cn.Open strDbtOpen '"driver={Microsoft Access Driver (*.mdb)};dbq=" & strDbtName
    cn.Execute strSql'运行了
    cn.Close

Answer 2

首先引用ado
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库;Data Source="
objrs.Open strSql, objcon, 3, 1
Set Datagrid1.RowSource = objrs'While Not objrs.EOF
'list1.additem objrs.fields(0)
'wend

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;"
  strSql = "Update SYAIN set seimei='qqqqqq' where syainid='10001'"
 CN.Execute strSql