VB无法插入空行,行必须至少有一个列值集 Adodc1.Recordset.Update显示问题
PrivateSubForm_Load()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSo...
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\1.mdb;Persist Security Info=False" '
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 名称" '
Set Text1.DataSource = Adodc1
Text1.DataField = "姓名"
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew '添加新纪录
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update '保存
Adodc1.Refresh '刷新
End Sub 展开
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\1.mdb;Persist Security Info=False" '
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 名称" '
Set Text1.DataSource = Adodc1
Text1.DataField = "姓名"
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew '添加新纪录
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update '保存
Adodc1.Refresh '刷新
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询