ÓÃ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
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)
È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc
ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË
½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ
Õâ¸öÒªÔõà ......
VBÖÐcallbacke function ÈçÏ£º
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, WndTitle As String ' title bar text length an ......