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

首先引用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 "select filename from xiazaijilu ", objcon, 3, 1
Set Datagrid1.RowSource = objrs'While Not objrs.EOF
'list1.additem objrs.fields(0)
'wend

Answer 2

dim adoCnn as new adodb.connection
adocnn.open connectstringDim 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'"
 adoCnn.Execute strSqladoCnn.close
set adoCnn = nothing

Answer 3

使用 adodb.command 对象
或者使用adodb.connecton.Execute方法

Answer 4

objrs.Open strSql, objcon, 3, 1
 

Answer 5

数据库连接入下
    Dim DBSession As Object
    Dim DBDatabase As Object
    Dim recSet As Object
   
    Dim DBName          As String
    Dim DBUID           As String
    Dim DBPWD           As String
    Dim strSql          As String
    DBName = "gld"
    DBUID = "gld01"
    DBPWD = "gld01"
    
    Set DBSession = CreateObject("OracleInProcServer.XOraSession")
    Set DBDatabase = DBSession.OpenDatabase(DBName, DBUID & "/" & DBPWD, 0&)没用ado 的情况 怎样执行

Answer 6

dim db as database      'DAO
dim sSql as string 
   sSql = "INSERT INTO ........"
   db.execute sSql

Answer 7

工程--->引用--->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