UC知道用vb把结果输入数据库(access2003)
来源：百度知道 编辑：UC知道 时间：2024/06/16 09:39:10
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属性 > 在“通用”选项卡中选择“使用连接字符串”并点击“生成
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属性 > 在“通用”选项卡中选择“使用连接字符串”并点击“生成
text1,text2控件要和adodc1控件连接才能将文本框中的内容写入数据库。
具体做法：
1）在窗体上添加text1和text2
2）将text1和text2的datesource属性设置为adodc1
3) 将text1的datefield属性设置为表中的字段名1，同理text2的属性设置为表中字段名2，....等等类似。
如果command1的代码无误的话，单击按钮后可以实现数据的写入。
我是用insert into的
帮不了你
不过如果你需要一些代码例子可以PM我