VBA 获取数据库内容

最新推荐文章于 2022-09-08 16:13:29 发布

beyondcrab

最新推荐文章于 2022-09-08 16:13:29 发布

阅读量826

点赞数 1

文章标签： vba 数据库 textbox insert

Private Sub CommandButton2_Click()
If TextBox2.Text <> "" And TextBox3.Text <> "" Then
Dim cn As New ADODB.Connection
Const constr = "provider=MSDAORA.oracle;data source=AAA;user id =AAA;password=AAA;"
cn.Open constr
cn.Execute "insert into vba (a,b) values ("& textbox2.Text & "," & textbox3.Text & ")"
MsgBox "insert ok"
cn.Close
cn = Nothing
End If
End Sub