如两个表供应商表:
供应商ID、供应商名、Email入库表:
入库ID、商品ID、数量、供应商ID两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?我是业余开发者,没有经过系统学习,请指教。

解决方案 »

  1.   

    查找要看你需要的信息是哪方面的?
    如果想知道整个商品的信息(一般是这样需求的)
    select 入库ID,商品ID,数量,入库表.供应商ID,供应商名,Email from 供应商表,入库表 where 入库表.供应商ID=供应商表.供应商ID
      

  2.   

    保存入库记录时,用户选择供应商,把供应商ID付给变量如GYSID。
    rs.addnew
    rs!供应商ID=GYSID
    rs!入库ID=text1.text
    ..
    rs.update
      

  3.   

    如两个表
    供应商表:
    供应商ID、供应商名、Email
    入库表:
    入库ID、商品ID、数量、供应商ID
    两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?
    ///
    我最近也遇到这个问题,我告诉你我的思路:
    在保存入库记录的界面,你可以允许手工输入供应商和选择两种操作,此时你可以到数据库"供应商表"中查找,如果已经存在了,就调用供应商ID,如果不存在就弹出新界面输入供应商信息,然后保存,我的供应商ID采用的是8位的自动流水号.不知道楼主明白了吗?
      

  4.   

    我通过是用年月日加上四位数字!!'取得表的主键
    Public Function GetID(ls_Table) As String
    On Error GoTo Errhandle
        Dim ls_ID As String, rs As New ADODB.Recordset
        
        ls_ID = Format$(ls_CurDate, "YYYYMMDD")
        If rs.State = adStateOpen Then rs.Close
        rs.Open "select max(ID) from " & ls_Table & " where ID like '" & ls_ID & "%'", cn, adOpenForwardOnly, adLockReadOnly    If IsNull(rs.Fields(0).Value) Then
            ls_ID = ls_ID & "0001"
        Else
            ls_ID = rs.Fields(0).Value + 1
        End If    GetID = ls_ID
        rs.Close
        Set rs = Nothing
        
        Exit Function
    Errhandle:
        If rs.State = adStateOpen Then rs.Close
        Set rs = Nothing
        ErrView Err.Description
    End Function
      

  5.   

    TO ryuginka(ryuginka) 
    我用的也是相同的办法,这在供应商ID数量较多时使用。假设供应商ID只有固定的3个或5个,那么我是用两个Combo控件配合,一个显示供应商名称,一个隐藏,放置ID号,让用户直接选择,窗体Load时即读出信息,这样保存时就不需要再检索数据库。
      

  6.   

    如两个表
    供应商表:
    供应商ID、供应商名、Email
    入库表:
    入库ID、商品ID、数量、供应商ID
    两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?保存一条入库记录,供应商ID如何查找和保存?——我的问题是这个。ID当然是自增的。
      

  7.   

    这样看一看!!!
            .AddNew
            .Fields("ID").Value = "sdfjase"
            .Fields("Name").Value = "asdfsadf"
            .Update
            .Book = .LastModified
            lNodeKey = .Fields("KeyID").Value
    这个lNodeKey就是保存的ID
      

  8.   

    供应商表:
    供应商ID、供应商名、Email入库表:
    入库ID、商品ID、数量、供应商ID两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?
    先保存供应商信息.(切记用记录集保存)
    rsGYS.Update
    rsGYS.BookMark=RsGYS.LastMOdified
    lID=RsGYS.Fields("供应商ID").Value
    'LID就是刚才添加的供应商的ID