ÓÃVB´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²»ÄÜÌí¼Ó¼Ç¼
ÓÃADO´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²¢Ìí¼ÓÁ˶à¸ö×Ö¶ÎÃû¡£
µ«ÏÖÔÚÎÊÌâÊÇ£¬²»ÄÜÏò¿Õ±íÖÐÌí¼Ó¼Ç¼¡£
ÿ´ÎÌí¼Ó¶¼»á³öÏÖ¡°BOF »ò EOF ÖÐÓÐÒ»¸öÊÇ¡°Õ桱£¬»òÕßµ±Ç°µÄ¼Ç¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Ç¼¡±
ÏëÍê³ÉµÄ¹¦ÄÜÊÇ£¬½«EXCEL±íÖеÄÊý¾Ý¶Áµ½recordsetÖУ¬¸ù¾Ýrecordset´´½¨Access±í¡£
ÏÖÔÚ±í´´½¨ÁË£¬×Ö¶ÎÒ²ÓÐÁË£¬µ«¾ÍÊDz»ÄÜÌí¼Ó¼Ç¼¡£
СµÜ³õѧÕߣ¬Çë´óÏÀÖ¸½Ì£¡
Ïò¿Õ±íÖÐÌí¼Ó¼Ç¼ µÄ´úÂëÌù³öÀ´¿´¿´£¬Ö¸³ö³ö´íÔÚÄÄÒ»ÐÐ
Êý¾Ý¿âÓÃcnnÒѾ´ò¿ª
Ö÷Òª´úÂ룺
Dim cnnE As New ADODB.Connection
Dim rsE As New ADODB.Recordset
Dim sqlE As String
Dim i As Integer, j As Integer
'¶ÁÈ¡Excel±íÖеÄÊý¾Ýµ½rsEÊý¾Ý¼¯
cnnE.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Text1.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"
rsE.Open "select * from [" & excel±í & "$]", cnnE, 3, 3
¡¯¸ù¾ÝrsE ´´½¨±í£¬²¢Ïò±íÖÐÌí¼Ó×Ö¶Î
Call cnn.Execute("CREATE TABLE " & ´´½¨µÄ±í)
For j = 0 To rsE.Fields.Count - 1
sqlE = "ALTER TABLE " & ´´½¨µÄ±í & " ADD _
[" & rsE.Fields(j).Name & "] " &a
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
ÎÒÒªµ¼Èëµ¼³öÊý¾Ý¿âÎļþ£¬ÔÚµ½´¦µÄʱºòʹÓÃÁí´æΪ¶Ô»°¿ò£¬¾ßÌå´úÂëÊÇÈçºÎʵÏֵģ¿ÎÒÖ±½ÓÓÃcommondialog1.showsaveÖ®ºóµãÁí´æΪûÓÐÏìÓ¦£¬ÊDz»ÊÇÒªÌí¼Óʲô´úÂ룿¼±£¡
Áí´æΪʲô¸ñʽµÄÎļþÄãÐèÒª¸æËß´ó¼Ò,дµ½²»Í¬À ......
±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......