ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA ¥ÎSQL ¤@¦¸·s¼W¦hµ§¸ê®Æ¦ÜEXCELªº¤èªk

[µo°Ý] VBA ¥ÎSQL ¤@¦¸·s¼W¦hµ§¸ê®Æ¦ÜEXCELªº¤èªk

¤p§Ì·|¥ÎVBA+SQL³s½u¦ÜMSSQL ¨Ã¥B¤@¦¸·s¼W¦hµ§¸ê®Æ,¥Î;³s±µinsert¦r¦ê§Y¥i
¦ý¤£¾å±o­n¦p¦ó³s½u¦ÜEXCEL¤§«á¤@¦¸·s¼W¦hµ§¸ê®Æ?

¤èªk¤@:µL®Ä
strSQL = "INSERT INTO " & Table_name & " VALUES (" & Columns_name & ")"
strSQL2=strSQL & ";" & strSQL

¤èªk¤G:µL®Ä
strSQL = "INSERT INTO " & Table_name & " VALUES (" & Columns_name & "),(" & Columns_name & ");"

¨D¤j¤j­Ì¨ó§U = =
PKKO

¦^´_ 2# lpk187


    ¥i±¤¦¹½g©|¥¼´£¨ì,·PÁ±z!
PKKO

TOP

¦^´_ 5# baomin


    ±z¦n,update ¬O­×§ï¸ê®Æ
¤p§Ì·Q­nªº¬O·í§A¦³¤@¸Uµ§¸ê®Æ­n¿é¤J¦ÜEXCEL
¦ý·Q­n¥ÎSQL³s½uªº¤è¦¡°µ¿é¤J
­n¦p¦ó¤@¦¸¿é¤J¦hµ§¸ê®Æ
¦Ó¨Ã«D¨C¤@µ§¸ê®Æ°õ¦æ¤@¦¸
PKKO

TOP

¦^´_ 7# lpk187


lpk¤j¤j±z¦n,
­º¥ý«D±`·PÁ±z,¥t¥~·Q½Ð±Ð¤@¤U:
±z¬O§_·|¥ÎSQL³s½u¦Ü¦³³]©w¶}±Ò±K½XªºEXCELÀɮשO?
¥H¤U¬O§Úªº»yªk(¥i³s½u¦ÜEXCELÀÉ®×,¥i¬O¤@¦ýEXCEL¦³³]©w¶}±Ò±K½X´NµLªk³s½u¤F,¤£ª¾¹D­n¦p¦ó¿é¤J¶}±Ò±K½X
¥i§_À°¤p§Ì¬Ý¤@¤U...
  1. Public Conn As ADODB.Connection
  2. '«O¦s©M§ó·s°ò¦¸ê°T
  3. Public Sub Conn_conection()
  4. address1="EXCELÀɮצì¸m"
  5. If Conn Is Nothing Then Set Conn = New ADODB.Connection
  6. '¥H¤U«Ø¥ß¼Æ¾Ú®w³s±µ
  7. With Conn
  8. strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Persist Security Info=False;" & _
  9.           "Data Source=" & address1 & ";Extended Properties='Excel 12.0;IMEX=0'"
  10. .Open strConn
  11. End With
  12. End Sub
½Æ»s¥N½X
PKKO

TOP

¦^´_ 9# lpk187


    lpk ¤j¤j«D±`·PÁ±z
§Ú·Q¤]¬O³o¼Ë,¦]¬°§Ú¤w¸g¹Á¸Õ±Npassword ©ñ¨ì¥ô¦ó¦ì¸m,³£µLªk¶i¦æ³s½u
¦ý¬OAccess«o»´ÃP¹F¦¨

¦A¦¸·PÁ±zªº¦^ÂÐ!
PKKO

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD