数据库能查询不能修改

Question

Dim time_start  As String
Dim time_end   As String
'Dim sql As String
Dim sql2 As String
Dim sql, msg As String
' time_start = DTPicker_start.Value
 'time_end = DTPicker_end.Value
 
'sql = "update T_TL_TLUNICOM set TLID = 88  where isvisible = 1;"
'MsgBox sql
sql2 = "insert into testok.T_TL_TLUNICOM values (5,'','',1);"
MsgBox sql2
'Adodc1.RecordSource = sql
Adodc1.RecordSource = sql2
'Adodc1.Refresh
 ''''''''sql = "update users set password = '" + new_psw.Text + "' where username = '" + current_user + "'"
    
    'Set Rs = ExecuteSQL(sql2, msg)
MsgBox " I am here !"
这几个方法我都试过了但都不好使啊。我做了一个datagrid 都能显示这个表中的内容。。但我就是不能修改啊。
、为什么啊。怎么办啊
、
请大家帮忙啊

Answer 1

Adodc1.Recordset.ActiveConnection.Execute sql
Adodc1.Recordset.Requery