Question

VB数据库数据添加问题

我创建了一个ACCESS数据库...在窗体中添加了Adodc1控件..数据库的字段有产品号,型号,数量,总数量....
我在窗体中添加了4个文本框.如果我输进数据去,然后点添加,数据就会输入到数据库当中..代码请大虾请清楚点,,麻烦各个了,
谢谢
要VB的语言.不要C++的

Answer 1

楼上那位没看清楚说明吧，人家说用Adodc控件连接数据库呢 ╮(╯_╰)╭
如果Adodc1已经成功连接数据库，那么添加操作很简单：

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
'一定要确保插入的数值类型与数据库相应字段一致，否则插入会出错！
Adodc1.Recordset.Fields("产品号") = Val(Text1.Text) '假设是数值型
Adodc1.Recordset.Fields("型号") = Text2.Text '文本型
Adodc1.Recordset.Fields("数量") = Val(Text3.Text)
Adodc1.Recordset.Fields("总数量") = Val(Text4.Text)
Adodc1.Recordset.Update
End Sub

如果只是刚添加Adodc1，还没设置连接属性，那么看下来：
在窗体上右击Adodc1控件 > 选ADODC属性 > 在“通用”选项卡中选择“使用连接字符串”并点击“生成” > “提供程序”选项卡中选择“Microsoft Jet 4.0 OLE DB Provide” > “下一步” > 选择数据库文件路径 > 点击“测试连接” > 提示成功的话,接下来在Adodc1的属性窗口中，设置其RecordSource为指定的数据表名称，大功告成

Answer 2

在窗体上放4个TextBox、1个Adodc和1个按钮
在程序中加入下面代码
Option Explicit
Dim conn As ADODB.Connection
Dim WithEvents rs As ADODB.Recordset
Dim strJet, strPath, strPre As String

Private Sub Command1_Click()
On Error GoTo hak:
Dim strSQL As String
strSQL = "select * from product " 'product为数据库中表的名称
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("产品号") = CInt(Text1.Text)
rs.Fields("型号") = Text2.Text
rs.Fields("数量") = CInt(Text3.Text)
rs.Fields("总数量") = CInt(Text4.Text)
rs.Update
MsgBox "添加成功"
Exit Sub
hak:
MsgBox "请输入正确的格式"
End Sub

Private Sub Form_Load()
Dim strSQL As String
strJet = "Provider=Microsoft.Jet.OLEDB.4.0;"
strPath = "Data Source= " & App.Path & "\产品.mdb; " '产品是数据库名称
strPre = "Persist Security Info=False"
Set conn = New ADODB.Connection
conn.Open strJet & strPath & strPre

End Sub

Answer 3

二楼说的这么详细啊 真是高手啊 佩服！！！！！！！！！！！

Answer 4

期待高手