Office中国论坛/Access中国论坛

标题: 请教一个查询与输入表的问题！（大肚楠） [打印本页]

作者: cattjiu 时间: 2002-12-5 01:09
地址库不可能有那么大，用工具压缩一下数据库。

作者: eio 时间: 2002-12-5 01:19
标题: 已经压缩过，一样的，就是＃大肚楠＃啦！
如果可以的话，发比您看看，就是发不出吗！
[mp=0,0]http://www.office-cn.net/vvb/uploadimages/200212417171259505.rar[/mp][move]＃开音箱听听吧！＃[em27][/move]

作者: eio 时间: 2002-12-5 01:22
标题: 请教一个查询与输入表的问题！（大肚楠）
例如有“广东省”和“湖南省”两个表（或者是链接的表或数据库文件），现在查询“制衣厂”字符，必须将各表的相关内容显示出来。

当进行记录时，例如输入广东中山的数据，又必须能对应记录到广东的表里。
原因是我的地址数据库文件已经有390M啦！[fly]谢谢各位！[/fly]

[此贴子已经被作者于2002-12-4 17:21:35编辑过]

作者: kane 时间: 2002-12-5 01:23
关注!!!!我也有同样的问题,有哪位大侠能解吗?

作者: zhuyiwen 时间: 2002-12-5 01:36
不知是否含有OLE字段？

作者: eio 时间: 2002-12-5 01:41
标题: 没有啊！其实是记录了全国几百万的地址电话以及单位名称
等等的信息而已！我想无私的奉献和方便的使用嘛！[glow=255,red,2]谢谢关注！[/glow]

[此贴子已经被作者于2002-12-4 17:40:35编辑过]

作者: zhuyiwen 时间: 2002-12-5 02:13

以下是引用eio在2002-12-4 17:40:35的发言：
等等的信息而已！我想无私的奉献和方便的使用嘛！[glow=255,red,2]谢谢关注！[/glow]

[此贴子已经被作者于2002-12-4 17:40:35编辑过]

完全有可能这么大！呵呵[em26]

采用非绑定的方式，按条件查询。按地区分类，可能好些，呵呵

作者: eio 时间: 2002-12-5 03:38
标题: 可以讲得明白D吗？xiexie！
[fly][em18][em18][/fly]

作者: zhuyiwen 时间: 2002-12-5 03:43

以下是引用eio在2002-12-4 19:38:25的发言：
可以讲得明白D吗？xiexie！

我如何可以获得你的数据库？能下载吗？

[此贴子已经被zhuyiwen于2002-12-4 19:42:55编辑过]

作者: 九阳先生 时间: 2002-12-5 04:31
我的想法是采用联合查询实现查询的功能，可以在该查询窗体添加修改/增加按钮来在另外的窗体修改或增加；添加删除按钮来删除。注意在联合查询中要有定位数据表和记录的字段。不过由于数据太多，速度可能会慢。

[此贴子已经被作者于2002-12-4 20:30:54编辑过]

作者: eio 时间: 2002-12-5 04:57

以下是引用zhuyiwen在2002-12-4 19:42:55的发言：
我如何可以获得你的数据库？能下载吗？

因为在外面，数据要明天才能上传，这样吧，先上传一个例子，帮手完成部分的功能，那么我将所有数据都给您整理和下载吧！

作者: Trynew 时间: 2002-12-5 06:01
几百兆的MDB可以理解，
几百万的记录用MDB？！
装个SQL SERVER吧！

作者: eio 时间: 2002-12-5 06:12
标题: 只想简单的应用
况且吾辈并非IT软件业的程序员，真有点无奈而已。
[mp=0,0]http://www.office-cn.net/vvb/uploadimages/200212417171259505.rar[/mp][move]＃开音箱听听吧！＃[em27][/move]

[此贴子已经被作者于2002-12-4 22:12:03编辑过]

作者: kane 时间: 2002-12-5 18:29
标题: 呵呵~~~同病相连阿~~~~~~
我也有同样的问题~~~~可是我解决不了.只知道可以做一个判断~~

if me!文本=广东 then
…… '插入到广东表
elseif me!文本=湖南 then
…… '插入到湖南表
end if

作者: kane 时间: 2002-12-5 18:31
标题: COOL 看看这断代码.
Dim con As ADODB.Connection '声名数据库对象
Dim rec As Recordset '声名记录集对象
Dim rec1 As Recordset '声名记录集对象
Dim rec2 As Recordset '声名记录集对象
Dim rec3 As Recordset '声名记录集对象
Dim rec4 As Recordset '声名记录集对象
Dim rec5 As Recordset '声名记录集对象
Dim rec6 As Recordset '声名记录集对象
Dim rec7 As Recordset '声名记录集对象
Dim rec8 As Recordset '声名记录集对象
Dim rec9 As Recordset '声名记录集对象
Dim searchkey, searchkey1, searchkey2, repair As String
Dim rec3count, reccount, fate As Integer
Dim strsql, strsql1, strsql2, strsql3, strsql4, strsql5, strsql6, strsql7, strsql8, strsql9 As String
Dim fie As ADODB.Field
Dim msg, title, response
Set con = New Connection '数据库对象实例化例 dim con as new adodb.connection
Set con = CurrentProject.Connection '指定数据库为当前数据库
Set rec = New Recordset '记录集对象实例化 dim rec as new recordset
rec.ActiveConnection = con
con.BeginTrans
'判定是否重复把条码表中的数据增加到搜索明细表中
'读取条码表中的第一条流水号
strsql7 = "select 流水号 from 条码"
Set rec7 = New Recordset
rec7.Open strsql7, con, 3, 3, 1
'搜查第一条流水号是否在搜索明细表中
strsql8 = "select 流水号 from 搜索明细表 where 流水号='" & rec7.Fields(0).value & "'"
Set rec8 = New Recordset
rec8.Open strsql8, con, 3, 3, 1
If rec8.Fields(0).value = "" Then
'打开条码表记录集(搜索是我们出货的产品)
strsql = "select 条码.*,出货明细表.*　from 条码,出货明细表 where ([条码].[流水号] between 出货明细表.[起始流水号] and 出货明细表.[结束流水号])"
rec.Open strsql, con, 3, 3, 1
While Not rec.EOF
'输出产品名称
searchkey2 = rec.Fields(4).value
strsql4 = "select * from 产品表 where 产品编号=" & searchkey2 & ""
Set rec2 = New Recordset
rec2.Open strsql4, con, 3, 3, 1
'输出出货单中的出货日期
searchkey = rec.Fields(2).value　'获取出货明细表中的出货单编号赋给searcheky变量
strsql2 = "select * from 出货单 where 出货单编号=" & searchkey & "" '搜索出货编号相对应的出货日期
Set rec3 = New Recordset
rec3.Open strsql2, con, 3, 3, 1
'输出客户表中的客户名称
searchkey1 = rec3.Fields(1).value '获取出货单中的客户名称赋给searcheky变量
strsql3 = "select * from 客户表 where 客户编号=" & searchkey1 & ""
Set rec4 = New Recordset
rec4.Open strsql3, con, 3, 3, 1
If (Date - rec3.Fields(2).value) <= 425 Then
repair = "保修期"
Else
repair = "保修期已过"
End If
'将返修品插入到搜索明细表中
strsql5 = "insert into 搜索明细表(流水号,出货单编号,客户名称,产品名称,出货日期,保修状况,处理结果) values ('" & rec.Fields(0).value & "'," & rec.Fields(2).value & ",'" & rec4.Fields(1).value & "','" & rec2.Fields(1).value & "','" & rec3.Fields(2).value & "','" & repair & "','龙腾产品')"
Set rec5 = New Recordset
rec5.Open strsql5, con, 3, 3, 1
rec.MoveNext
Wend
'搜索非龙腾出货产品
Set rec1 = New Recordset
strsql1 = "select 条码.* from 条码 where [条码].[流水号] not in (select [条码].[流水号] from 条码,出货明细表 where [条码].[流水号] between 出货明细表.[起始流水号] and 出货明细表.[结束流水号])"
rec1.Open strsql1, con, 3, 3, 1
While Not rec1.EOF
'将非龙腾产品插入搜索明细表中
strsql6 = "insert into 搜索明细表(流水号,处理结果) values ('" & rec1.Fields(0).value & "', '非龙腾产品')"
Set rec6 = New Recordset
rec6.Open strsql6, con, 3, 3, 1
Debug.Print vbCr
rec1.MoveNext
Wend
msg = "条码表中的流水号处理完成，请查看记录！"
title = "数据处理操作窗口"
response = MsgBox(msg, vbInFORMation, title)
Else
msg = "请查看记录,你已处理过该笔返修品了！"
title = "数据处理操作窗口"
response = MsgBox(msg, vbExclamation, title)
Exit Sub
End If
con.CommitTrans
rec.Close
con.Close
Set con = Nothing

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)