我在VB里写了个UPDATE语句.怎样直接运行这个语句呀.

Question

sql="update vi_char_info set bill=5"
dbs.execute sql
这样为什么不行呀.用引用的是ado.
我就想用一句命令,把这句话执行了.

Answer 1

sql="update vi_char_info set bill=5"
dbs.execute(sql)

Answer 2

我就是这么写的,但是没有执行啊.有什么方法可以判断execute运行完的返回值.

Answer 3

sql="update vi_char_info set bill=5"
dbs.execute(sql)用个记录集判断阿

Answer 4

sql="update vi_char_info set bill=5"
dbs.execute(sql)
dbs是你的连接名称吗？
你引用了ADO吗？

Answer 5

引用Ado，
写:
dim padoCn as ADODB.Connection
dim psConnectionString  as string 
psConnectionString = "driver={SQL Server};" & "server=" & psServerName & ";uid=sa;pwd=" & psPassword & ";database=" & psDataBaseName
    Set padoCn = New ADODB.Connection
    padoCn.CursorLocation = adUseClient
    padoCn.ConnectionString = psConnectionString
   padoCn.Open
   dim sql ="update vi_char_info set bill=5 where 条件='adfasdf'"  '要有条件，不然不该改的都改了
   On Error Goto Err_Rollback
   padocn.Execute sql
   msgBox "成功"
   exit sub
Err_Rollback:
   MsgBox "不成功"

Answer 6

Dim conn As ADODB.Connection
Dim conn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim RsGM As ADODB.Recordset
Dim sql_str As String    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & Text3.Text & ";password=" & Text4.Text & ";Initial Catalog=" & Text2.Text & ";Data Source=" & Text1.Text    Dim Star As Long
    Dim EndD As Long
    Dim rsD As ADODB.Recordset
    Dim Sql As String
    
    Star = Year(Stardate.Text) * 10000 + Int(Month(Stardate.Text)) * 100 + Int(Day(Stardate.Text))
    EndD = Year(Enddate.Text) * 10000 + Month(Enddate.Text) * 100 + Day(Enddate.Text)
    Sql = "Update vi_curr_info set bill_section=5,bill_hour=5 where ends_days<" & EndD & " and ends_days>" & Star & " and bill_section=6 and used_time=1234"
    
    Set rsD = New ADODB.Recordset
    conn.Execute Sql
    MsgBox "批量关闭成功！", vbOKOnly
    
和你说的一样啊.怎么就不行呢.

Answer 7

首先你应当确实你的连接字符串是否正确。
然后，将你的查询在Access的查询中执行一遍，看是否有错误。请将你程序出错时的错误号和出错语句告诉大家。

Answer 8

将你的查询在SQL查询分析器里执行。 ：） 刚看错了，还以为你用的Access数据库呢。

Answer 9

你的DBS声明了吗？  OPEN  成功  先坚持这些说