3个回答
展开全部
Dim adocn As New ADODB.Connection
Private Sub Command1_Click()
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
adocn.Execute "insert into ss (AAA) values ('" & Val(Text1.Text) & "')"
adocn.Close
End Sub
Private Sub Command1_Click()
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
adocn.Execute "insert into ss (AAA) values ('" & Val(Text1.Text) & "')"
adocn.Close
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询