VB+sqlserver实现CRUD操作，不需要用控件显示数据，要能等到sql执行结果正确与否，高分！

Question

我写一个简单的程序，操作sqlserver，程序能运行sql语句，并且能得到语句执行的结果
不用显示数据，完全由sql语句来操作
求例子

Answer 1

Public Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=hotel.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function这样的代码我看了，好像没有sql执行正确与否的标记
或者是否可以从Recordset中判断出正确与否呢？

Answer 2

不知道你要的什么效果，看看有没有用：Private Sub Form_Load()
    Dim cn As Object, rs As Object
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cn.CursorLocation = adUseClient
    '打开数据库连接，具体的自己改过来
    cn.Open "Provider=MSDataShape;Data Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ljx"
    Set rs = cn.Execute("select * from 表") '查询数据
    MsgBox "查询到的记录数为：" & rs.RecordCount
    If rs.State <> adStateClosed Then rs.Close
    If cn.State <> adStateClosed Then cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

Answer 3

假如我的sql是“insert ...”,
我希望sql执行后，有一个返回值，告诉我是否成功，
同样要求delete ，update
retrieve就给我Recordset就好了

Answer 4

原来是那样呀那你可以给ExecuteSQL函数加一个参数，用来标志sql语句是否正确执行

Answer 5

给个例子啊，或者cnn.Execute 有返回结果吗？
急用，不想在这个上面发费时间去看书

Answer 6

Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String, Optional sFlag As Boolean = False) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   sFlag = False ' 设置成功表示为False
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
   sFlag = True ' 如果执行过程没有出错，则让sflag返回True
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function'调用例子：
Private Sub Command1_Click()
   Dim strSql As String,sFlag As Boolean
   strSql="Update 表 Set 列1='1'"
   ExecuteSQL strSql,"",sFlag
   If sFlag Then 
       MsgBox "语句执行成功！"
   Else
       MsgBox "语句执行失败！"
   End If
   
End Sub