VB中使用ADO代码向Access数据库添加记录 |
您所在的位置:网站首页 › vb利用 › VB中使用ADO代码向Access数据库添加记录 |
代码如下: Option Explicit'工程->引用->勾选 Microsoft ActiveX Data Objects 2.X Library Dim Conn As New ADODB.ConnectionDim conStr As StringDim Sql As String Private Sub Command1_Click() conStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "book.mdb" Conn.Open conStr Sql = "insert into admin(aid,psw,realname)values('" & Text1.Text & " ','" & Text2.Text & " ','" & Text3.Text & "')" Conn.Execute Sql Conn.Close End Sub |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |