Question

VB中用Adodc控件连接ACCESS数据库，用什么语句删除单独一列数据，如何删除全部数据使再打开时是空数据库？

Answer 1

全部删除：
Do While Not Adodc1.Recordset.EOF '
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Loop
Adodc1.Refresh
单独删除：
Adodc1.Recordset.Delete
Adodc1.Refresh

追问

能否再帮我写下保存和提取数据的语句？每个问题50悬赏，我有很多分，我问了好几个问题，悬赏都很高，但就是没人回答，希望您能帮帮我~先谢过了！

Answer 2

'保存一条记录语句：
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = val(Text1.Text ) 'text1值保存第一列，数值类型，可更改成你需要的类型
Adodc1.Recordset.Fields(1) = cstr(Text2.Text ) 'text2值保存第二列，文本类型
'如有更多列，与上面同理
Adodc1.Recordset.Update
End Sub