Access導³öExecl
VB+Access×öµÄϵ統£¬
為·½±ã²é閱與´òÓ¡£¬
Ðè導³ö為execl±í¸ñ£¬
help¡£
環¾³£ºAccess±íÊÇAccess 2000£»
ÍøÉϺܶà,°Ù¶ÈÒ»ÏÂ
¹Ø×¢£¡
´°Ìå´úÂë
VB code:
Private Sub outcstinf_Click() 'µ¼³ö×ÊÁÏΪXLS
Dim i As Integer 'ÐÐ
Dim j As Integer 'ÁÐ
Call openXLT("Custom.xlt")'Custom.xltÊÇÒ»¸öÓëÒªµ¼³öµÄÊý¾Ý±í¸ñʽÏàͬµÄexcelÄ£°åÎļþ
Call OpenConn
sql = "select * from Òªµ¼³öµÄ±í ORDER BY ÓÃÓÚÅÅÐòµÄ×Ö¶Î(Ò»°ãÊDZàºÅ) ASC"
rs.Open sql, cn, 1, 1
If rs.RecordCount < 1 Then
MsgBox "Êý¾Ý¿âÖÐûÓмǼ£¡": Exit Sub
Else
i = 2'´ÓxlsµÄµÚ¶þÐпªÊ¼Ð´Èë(Ä£°åÖеÚÒ»ÐÐÒÑ×÷Ϊ×Ö¶ÎÃû±£Áô)
Do While Not rs.EOF
For j = 0 To rs.Fields.Count - 1 'Ñ»·Êý¾Ý±íµÄ0ÖÁ×îºóÒ»ÁÐ
xlsheet.Cells(i, j + 1) = rs.Fields(j) 'дÈë(Êý¾Ý±í×Ö¶ÎË÷ÒýÊÇ´Ó0¿ªÊ¼,¶øxlsµÄÁÐʾ´Ó1¿ªÊ¼, Òò´ËÒªj+1)
Next
rs.MoveNext
i = i + 1 'Ìøµ½i+1ÐмÌÐøÐ´Èë
Loop
End If
Call CloseConn
Call closeXLT
sql = ""
End Sub
Ä£¿é´úÂë
VB code:
Public xlApp As Excel.Ap
Ïà¹ØÎÊ´ð£º
m_pConnect->BeginTrans();
strSql.Format("CREATE TABLE SysUser(lsh AUTOINCREMENT NOT NULL UNIQUE,PRIMARY KEY(lsh),userType BYTE)");
m_pConnect->Execute((_bstr_t)strSql,NULL, adExe ......
ÎÊÌâÈçÏ£º
ÓòéѯÓï¾ä
select * from tab where fil like 'CK090902'ÄܲéÕÒ³öÒ»Ìõ¼Ç¼²¢ÏÔʾ³öÀ´
¸ÄΪ
select * from tab where fil = 'CK090902'
¾Í²»ÄܲéÕÒµ½£¬Ò²ÏÔʾ²»³öÀ´ ......
Çë½Ì
ÔÚaccessÖÐ ÎÒÓбí1
id1 id2 id3 id4
1 2 3 0
2&nb ......
´ó¸ÅÇé¿ö£º
C#дµÄwinformÓ¦ÓóÌÐò£¬ÒªÇó³ÌÐòÕûÌìÔËÐС£Êý¾Ý±íºÍÊý¾ÝÁ¿²¢²»´ó£¬±í×î¶à15¸ö£¬ÐÂÔöÊý¾ÝÿÈÕ×î¶à1000Ìõ£¬¶øÇÒ±íÖÐÖ»±£Áôµ±ÌìÊý¾Ý¡£
ÐèҪעÒâµÄÊdzÌÐò¶Ô±íµÄ²éѯºÍÐ޸ķdz£Æµ·±£¬¶øÇÒÊǶà¸öÏß³ÌÍ¬Ê ......
ÎÒÓÃAccessµÄʱºò£¬IDÊÇÖ÷¼ü×Ô¶¯Éú³É¡£
ÄDzåÈëÒ»Ìõ¼Ç¼µÄʱºò£¬ÔÚÖ´ÐÐÁ˲åÈëÓï¾äÖ®ºó»¹ÓÐÒ»¸ö´úÂëstring sqlGetId = "select max(Nid) from News" ;
ÊÇÏë»ñÈ¡¸Õ²Å²åÈëµÄ¼Ç¼ËùÉú³ÉµÄID£¬¿ÉÊÇÿ´Î»ñÈ ......