Option Explicit
Dim WithEvents rs As ADODB.Recordset
Dim conn As ADODB.Connection
Dim connstr As String
Private Sub command1_click()
Dim strSQL As String
strSQL = "select * from abc"
Set rs = New ADODB.Recordset
rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("字段1") = (Text1.Text)
rs.Fields("字段2") = (Text2.Text)
rs.Update
End Sub
Private Sub Form_Load()
Dim strSQL As String
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\a.mdb"
Command1.Caption = "保存"
Set conn = New ADODB.Connection
conn.Open connstr
Text1.Text = ""
Text2.Text = ""
End Sub
这是程序代码,运行的时候就是不能把TEXT1,TEXT2的数据写入数据库中.
用一个ADO控件与数据库连接,我是这样弄的,如果只是刚添加Adodc1,还没设置连接属性,那么看下来:
在窗体上右击Adodc1控件 > 选ADODC属性 > 在“通用”选项卡中选择“使用连接字符串”并点击“生成” > “提供程序”选项卡中选择“Microsoft Jet 4.0 OLE DB Provide” > “下一步” > 选择数据库文件路径 > 点击“测试连接” > 提示成功的话,接下来在Adodc1的属性窗口中,设置其RecordSource为指定的数据表名称.其中a数据库,abc是表的名称
请教各位我哪里出问题了?不胜感激,加20分,如果解决这个问题的话.