- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
  
|
¦^´_ 6# singo1232001
ADODB¼gSQL»yªk¡A«÷±µªº¤è¦¡¡A³Ì®e©ö¥X¿ù¤F(¥H«áªº¾[ÃD¤]·|«Ü¦h)¡A«Øij¼gSQL®É³Ì¦n¨Ï¥Î°Ñ¼Æªº¤è¦¡¡A´N¨S¦³§A¤Wzªº°ÝÃD¤F¡I
Set cmd = CreateObject("ADODB.Command")
cmd.CommandText = "Select Max(Id) From [¶i³f$] Where ¶i³f¤é´Á=@¶i³f¤é´Á"
cmd.Prepared = True
cmd.Parameters.Append cmd.CreateParameter("@¶i³f¤é´Á", adDate, adParamInput, , [G1])
cmd.ActiveConnection = conn
Set rs = cmd.Execute |
|