谁能帮我写一个VB写入是据库的例子？用sql写！

Question

数据库里有：
ID
商品名
成本价
出厂价
一级代理价
二级代理加
市场价
以上字段！在程序界面上有一个Combo1！每次运行就从数据库里提取出所有的商品名！
然后选到哪个商品就会在text1，text2，text3，text4，text5，里分别显示此商品的成本价，出厂价，一级代理价，二级代理加，市场价！如果在Combo1输入新的商品名！在那几个text里面输入相关信息然后再按添加能够把新商品添加进去！Combo1选定那个按删除键能够删除选定的那个商品！
谢谢各位大侠赐教了！

Answer 1

可以select * from table把数据库中的数据都取出来，然后combobox中存入对应的商品名，再根据用户选择的商品，把内存中对应的数据放text输入新的信息后 insert into table value()...

Answer 2

insert into tbl ...adodb连接数据库recordset读取关键词给你了，google一下就出来了

Answer 3

先写数据库连接。然后Combo1连接数据库，
text1，text2，text3，text4，text5 输入信息完成写保存（写入）代码。
你以前用过 ACCESS 数据吗？ACCESS 和SQL不大区别。

Answer 4

我只是举个例子而已!VB.NET做这种功能我就会!但是VB我就不会!所以想学!我想应该差不多!但是网上的例子又太散了!学起来好麻烦!

Answer 5

'-----------------------------------------------------
1、引用Microsft activex data objects 2.0 library
2、添加数据时没有对表内相同的商品名进行判断
3、如果数据存在相同的商品名时只显示第一条记录
4、txtq代表您的表名
5、ID的数据类型为numeric
6、数据库为SQL2000
'-----------------------------------------------------
Private Sub Combo1_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=AA;uid=sa;pwd=;database=BB" 'AA代表连接服务器名称或IP,BB代表连接数据库名
conn.ConnectionTimeout = 20
conn.Open
rs.Open "select * from [txtq] where (商品名='" & Trim(Combo1.Text) & "')", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
Else
rs.MoveFirst
 Text1.Text = rs.Fields(2)
 Text2.Text = rs.Fields(3)
 Text3.Text = rs.Fields(4)
 Text4.Text = rs.Fields(5)
 Text5.Text = rs.Fields(6)
rs.Close
conn.Close
   Set rs = Nothing
   Set conn = Nothing
End If
End Sub
Private Sub Command1_Click() '添加
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=AA;uid=sa;pwd=;database=BB" 'AA代表连接服务器名称或IP,BB代表连接数据库名
conn.ConnectionTimeout = 20
conn.Open
rs.Open "select * from [txtq]", conn, adOpenKeyset, adLockOptimistic, adCmdText
rs.AddNew
rs.Fields(1) = Trim(Combo1.Text)
rs.Fields(2) = Trim(Text1.Text)
rs.Fields(3) = Trim(Text2.Text)
rs.Fields(4) = Trim(Text3.Text)
rs.Fields(5) = Trim(Text4.Text)
rs.Fields(6) = Trim(Text5.Text)
rs.Update
rs.Close
   Set rs = Nothing
   Set conn = Nothing
Unload Me
MsgBox "增加成功", vbInformation, "提示"
Me.Show
End Sub
Private Sub Command2_Click() '删除
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
If Trim(Combo1.Text) = "" Then
Exit Sub
End If
Dim SureQ As Integer
SureQ = MsgBox("您真的要删除商品名为" & Trim(Combo1.Text) & " 的记录吗？", vbYesNo + 32, "提示")
If SureQ = 6 Then
Cancel = 0
conn.ConnectionString = "Driver={sql server};server=AA;uid=sa;pwd=;database=BB" 'AA代表连接服务器名称或IP,BB代表连接数据库名
conn.ConnectionTimeout = 20
conn.Open
rs.Open "delete from [txtq] where (商品名='" & Trim(Combo1.Text) & "')", conn, adOpenKeyset, adLockOptimistic, adCmdText
conn.Close
Set rs = Nothing
 Set conn = Nothing
Unload Me
MsgBox "删除成功", vbInformation, "提示"
Me.Show
Else
     Cancel = -1
  End If
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set mrc = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=AA;uid=sa;pwd=;database=BB" 'AA代表连接服务器名称或IP,BB代表连接数据库名
conn.ConnectionTimeout = 20
conn.Open
mrc.Open "select Count(商品名) AS lCount,商品名 from [txtq] group by 商品名 order by 商品名", conn, adOpenStatic, adLockReadOnly, adCmdText
If mrc.EOF = True And mrc.BOF Then
Else
Do Until mrc.EOF
      strUserName = mrc("商品名")
      Combo1.AddItem strUserName
      mrc.MoveNext
   Loop
   mrc.Close
End If
rs.Open "select ID from [txtq] order by ID", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
Label2.Caption = 1
Else
Label2.Caption = rs.Fields(0) + 1
End If
rs.Close
Set rs = Nothing
Set mrc = Nothing
Set conn = Nothing
End Sub

Answer 6

为什么运行了它说我用户定义类型未定义？
Set conn = New ADODB.Connection要如何定义？

Answer 7

要引用Microsft activex data objects 2.0 library 或以上版本
(打开VB,选择“工程”选项下拉有个“引用“选项,勾选Microsft activex data objects 2.0 library 或以上)