云南 刺梧桐胶:vb高手请金！

来源：百度文库 编辑：神马品牌网 时间：2024/04/29 11:51:16
Set Adodc1.Recordset = ExecuteSQL(txtSQL, MsgText)
Adodc1.Recordset.EOF = False

Set Adodc1.Recordset = ExecuteSQL(txtSQL, MsgText)
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Trim(Text1(0))
Adodc1.Recordset.Fields(1) = Trim(Text1(1))
Adodc1.Recordset.Fields(2) = Now
Adodc1.Recordset.Update
Adodc1.Recordset.Close
For i = 0 To 2
Text1(i) = ""
Next
MsgBox "用户信息添加成功!", vbOKOnly, "提示"
Listapp
这段代码是什么意思 啊？

Set Adodc1.Recordset = ExecuteSQL(txtSQL, MsgText) \'执行SQL语句，并将结果放在Adodc1.Recordset
Adodc1.Recordset.EOF = False

Set Adodc1.Recordset = ExecuteSQL(txtSQL, MsgText)
Adodc1.Recordset.AddNew \'添加新纪录
Adodc1.Recordset.Fields(0) = Trim(Text1(0)) \'字段1
Adodc1.Recordset.Fields(1) = Trim(Text1(1)) \'字段2
Adodc1.Recordset.Fields(2) = Now \'字段3，当前时间
Adodc1.Recordset.Update \'更新内容
Adodc1.Recordset.Close
For i = 0 To 2
Text1(i) = \"\" \'清空数组
Next
MsgBox \"用户信息添加成功!\", vbOKOnly, \"提示\"
Listapp

添加数据库记录得代码

vb高手请金！ 请VB高手进来。 请VB高手帮帮忙！ vb 高手请指教 vb问题，高手请! VB高手请指教 VB高手请指教！！！ 跪请vb高手 VB高手请指教！谢谢！ vb.net高手请帮忙