如两个表供应商表:
供应商ID、供应商名、Email入库表:
入库ID、商品ID、数量、供应商ID两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?我是业余开发者,没有经过系统学习,请指教。
供应商ID、供应商名、Email入库表:
入库ID、商品ID、数量、供应商ID两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?我是业余开发者,没有经过系统学习,请指教。
解决方案 »
- 如何让mid父窗口没有边框?我只能去掉标题栏,但是边框去不掉。
- vb判断.bmp文件是否打开
- 用VB如何清除Access数据库里某一张表理的数据
- 親手問題,請問各位,我該如何在text、或lable內顯示當前本計算機用戶名?
- VB调用EXE文件路径问题
- 一个用ms internet transfer control 6.0控件做的设置代理服务器的程序,winxp,ie60,不知怎么不起作用,高手帮忙看看,
- 我这样可以锁住数据库吗??不然怎么锁住数据库、数据库的表或数据库中的一条记录呢??
- 我用FindWindow(),为什么返回hwnd总是等于0?
- vb 出现的对象关闭时,不允许操作问题
- 在SQL触发器中,作用多行的问题
- 请问:
- 如何编程实现合并两个.wav文件
如果想知道整个商品的信息(一般是这样需求的)
select 入库ID,商品ID,数量,入库表.供应商ID,供应商名,Email from 供应商表,入库表 where 入库表.供应商ID=供应商表.供应商ID
rs.addnew
rs!供应商ID=GYSID
rs!入库ID=text1.text
..
rs.update
供应商表:
供应商ID、供应商名、Email
入库表:
入库ID、商品ID、数量、供应商ID
两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?
///
我最近也遇到这个问题,我告诉你我的思路:
在保存入库记录的界面,你可以允许手工输入供应商和选择两种操作,此时你可以到数据库"供应商表"中查找,如果已经存在了,就调用供应商ID,如果不存在就弹出新界面输入供应商信息,然后保存,我的供应商ID采用的是8位的自动流水号.不知道楼主明白了吗?
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
我用的也是相同的办法,这在供应商ID数量较多时使用。假设供应商ID只有固定的3个或5个,那么我是用两个Combo控件配合,一个显示供应商名称,一个隐藏,放置ID号,让用户直接选择,窗体Load时即读出信息,这样保存时就不需要再检索数据库。
供应商表:
供应商ID、供应商名、Email
入库表:
入库ID、商品ID、数量、供应商ID
两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?保存一条入库记录,供应商ID如何查找和保存?——我的问题是这个。ID当然是自增的。
.AddNew
.Fields("ID").Value = "sdfjase"
.Fields("Name").Value = "asdfsadf"
.Update
.Book = .LastModified
lNodeKey = .Fields("KeyID").Value
这个lNodeKey就是保存的ID
供应商ID、供应商名、Email入库表:
入库ID、商品ID、数量、供应商ID两个表中供应商ID设置了关系,现在我要保存一条入库记录,供应商ID如何查找和保存?
先保存供应商信息.(切记用记录集保存)
rsGYS.Update
rsGYS.BookMark=RsGYS.LastMOdified
lID=RsGYS.Fields("供应商ID").Value
'LID就是刚才添加的供应商的ID