提问---combobox记录问题、想了很久。

Question

ID   产品代码 产品编码产品名称  零件名称
1    0201140001 BB01140 7.99水枪  左枪身
2    0201140002 BB01140 7.99水枪  右枪身
3    0201140003 BB01140 7.99水枪  透明管
4    0201140004 BB01140 7.99水枪  左手柄
5    0201140005 BB01140 7.99水枪  右手柄
6    0201140006 BB01140 7.99水枪  左装饰件
7    0201140007 BB01140 7.99水枪  右装饰件
8    0201140008 BB01140 7.99水枪  活塞
9    0201140009 BB01140 7.99水枪  透明管盖
10   0201140010 BB01140 7.99水枪  水樽接头
11   0201140011 BB01140 7.99水枪  泵筒接头
12   0201140012 BB01140 7.99水枪  泵杆接头
此表是远程SQL表“物料基本资料”一个录入窗体FROM1，在数据录入中控件combobox1、text2、text3、text4
怎样在下拉COMBOBOX1中显示物料基本资料的记录集并且录入记录相对应记录。
比如：在COMBOX1中选择产品代码0201140001就会自动付值对应记录
      combox1、 text2、 text3、   text4
     0201140001 BB01140 7.99水枪  左枪身相同的ACCESS示例，不知VB怎么做
http://access911.net/csdn/filedescription.asp?mdb=2007-5-12&id=30&mode=3这是网友给我的提示代码、用DbCombo实现、觉得有问题
              Dim   CN   As   New   ADODB.Connection
Dim   rs   As   New   ADODB.Recordset
Dim   sql   As   String
Cn.ConnectionString   =   "Provider=sqloledb;Connect   timeout=1;Data   Source=计算机名称;Initial   Catalog=数据库名称;User   Id=sa（数据库的登录用户名称）;Password=密码;"
Cn.Open
    
sql   =   "select   ListName   from     tableName"
rs.Open   sql,   CN,   1,   2
Set   dtcmb.RowSource   =   rs
dtcmb.ListField   =   ListName
Private Sub Combo1_GotFocus()
Dim CN As New ADODB.Connection
Dim rs  As New ADODB.Recordset
Dim sql  As String 
CN.ConnectionString = "Provider=sqloledb;Connect   timeout=1;Data   Source=192.168.0.1;Initial   Catalog=new;User   Id=jean;Password=jean;"
CN.Open
    sql = "select List1 from 物料基本资料"
rs.Open sql, CN, 1, 2
Set Combo1.RowSource = rs
Combo1.ListField = List1
End Sub

Answer 1

简单极了，combobox1的click事件中写入代码
Dim   CN   As   New   ADODB.Connection
Dim   rs   As   New   ADODB.Recordset
Dim   sql   As   String
Cn.ConnectionString   =   "Provider=sqloledb;Connect   timeout=1;Data   Source=计算机名称;Initial   Catalog=数据库名称;User   Id=sa（数据库的登录用户名称）;Password=密码;"
Cn.Open
sql   =   "select  *  from     tableName where 产品代码=" & chr$(39) & combobox1 & chr$(39)
rs.Open   sql,   CN,   1,   2
这时候,把rs!产品编码rs!产品名称rs!零件名称分别赋值给text2text3text4即可

Answer 2

sql= "update table set 产品代码 = '"
 sql = sql & combobox1 & " , 产品编码 = '" & text1 & "'"

Answer 3

楼主要的效果是"下拉网格数据选择控件"，可以到http://www.vbaccelerator.com/或者枕善居去下载一个源代码的回来看一下就ＯＫ了！