急啊啊

#2

wxflw2012-12-03 16:24

https://bbs.bccn.net/viewthread.php?tid=385627&page=1#pid2177400
这是一个相关的问题！我回答过的帖子有相关代码你参考一下

#3

ouyangzhi5202012-12-03 16:38

回复 2楼 wxflw

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
Dim sql As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PT_AS_DB;Data Source=ouyang-c19a8722."
conn.ConnectionString = connstr
conn.Open connstr
sql = "select * from WarehouseStockDetail "
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockPessimistic

Do While Not rs.EOF And Not rs.BOF
Combo1.AddItem (rs.Fields(1))
List1.AddItem (rs.Fields(1))
rs.MoveNext
Loop
接下来就不知道怎么弄了

#4

wxflw2012-12-03 16:44

Private Sub Combo1_Click()
  List1.Clear
    If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PT_AS_DB;Data Source=ouyang-c19a8722."
    conn.ConnectionString = connstr
    conn.Open connstr
    sql = "select * from WarehouseStockDetail "
    rs.CursorLocation = adUseClient
    rs.Open sql, conn, adOpenDynamic, adLockPessimistic
'下面我没改你自己参考一下改改吧！
    If rs.RecordCount > 0 Then
       While Not rs.EOF
          If rs.Fields(Combo1.Text) <> "" Then
             Combo2.AddItem rs.Fields(Combo1.Text) & ""
          End If
             rs.MoveNext
        Wend
    End If
    If Combo2.List(0) <> "" Then
        Combo2.Text = Combo2.List(0)
    End If
End Sub

#5

ouyangzhi5202012-12-03 16:50

回复 4楼 wxflw

看看那个错了，是这个
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
Dim sql As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PT_AS_DB;Data Source=ouyang-c19a8722."
conn.ConnectionString = connstr
conn.Open connstr
sql = "select * from WarehouseStockDetail "
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockPessimistic

Do While Not rs.EOF And Not rs.BOF
Combo1.AddItem (rs.Fields(1))
rs.MoveNext
Loop
接下来是，我选中组合框的某个下拉项，相应的textbox的内容发生改变

#6

wxflw2012-12-03 17:05

就是把上面半段就是查询你选中的那个编号。通过编号查询，得到与编号相应的记录，
然后把相应的值也就是如下
如果你上面的表格就是这样的话
rs中就包含了你查到的记录的两个数据
rs.Fields("ID") & ""
和
rs.Fields("WarePosCode") & ""
两个值，你把需要的那个值写到相应的textbox中去
比如：text1.text=rs.Fields("WarePosCode") & ""
其他都差不多

#7

ouyangzhi5202012-12-04 14:58

回复 5楼 ouyangzhi520

搞定了，谢谢哈，原来是读取数据库字段那里出了点问题

急啊 啊