wugangtxrsj
发表于 2008-8-25 16:11
<p>学习一下</p>
zzlatm
发表于 2008-8-25 18:05
我回我回我我回
imgsteve
发表于 2008-9-5 13:41
厩策?
bolchina007
发表于 2008-9-5 16:32
<p>download</p>
hwfh11
发表于 2008-9-8 08:11
<p>看看有没有可借鉴的地方...</p>
yingtian4000
发表于 2008-9-8 09:03
<p>看帖必回!看看</p>
hudanggui
发表于 2008-9-8 09:18
<p>看看</p>
ws54454
发表于 2008-9-9 22:00
111
gzdwgw
发表于 2008-9-16 14:48
xuexi
wesung
发表于 2008-9-16 17:48
<p>HI 精英版主and <strong><font face="Verdana" color="#000000">hhzjxss</font></strong></p><p><strong><font face="Verdana"> 用sql联接未打开的数据库,条件以日期查询,请部如何实现,</font></strong></p><p>Sub 查找()<br/> = "": = ""<br/>Set Conn = CreateObject("adodb.connection")<br/>Set rst = CreateObject("ADODB.recordset")<br/>Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "/数据库.xls"<br/><font color="#cc7033">rst.Open "select * from where day='" & Trim() & "'", Conn, adOpenKeyset, adLockOptimistic<br/></font> If rst.RecordCount < 1 Then<br/> MsgBox "找不到该姓名"<br/> GoTo 100<br/> End If<br/> = rst.fields("年龄")<br/> = rst.fields("性别")<br/> MsgBox "查找成功"<br/>100:<br/>rst.Close<br/>Conn.Close<br/>Set rst = Nothing<br/>Set Conn = Nothing<br/>End Sub</p><p>Thanks a lot</p><p>brs wesung</p>