ÓÃ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
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)
È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc
ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË
½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ
Õâ¸öÒªÔõà ......
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ
Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ
ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ
¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿
Ôõô°ì
±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå
²»»á°É£¿
VB code:
Private Su ......