access µ¼Èë access ת»»ÎÞЧ!ÔÚÏßµÈ!
´ÓÀàÐÍ"DBNULL" µ½ÀàÐÍ¡°Double¡±µÄת»»ÎÞЧ£¨Êý¾Ý¿âÖжÔÓ¦µÄ a3 »òa5 ûÓÐÊý¾ÝÊÇΪ¿Õ£©
,ÇëÎÊÎÒÔõô´¦Àí£¡
VB.NET code:
Dim a1 As String = Nothing
Dim a2 As String = Nothing
Dim a3 As Integer
Dim a4 As String = Nothing
Dim a5 As Double
Dim a6 As String = Nothing
Dim a7 As String = Nothing
Dim SQL As String = Nothing
For s As Integer = 0 To dsin.Tables("kscjin").Rows.Count - 1
a1 = dsin.Tables("kscjin").Rows(s).Item("kh") & ""
a2 = dsin.Tables("kscjin").Rows(s).Item("xbdm") & ""
a3 = dsin.Tables("kscjin").Rows(s).Item("xh")
a4 = dsin.Tables("kscjin").Rows(s).Item("cj") & ""
a5 = dsin.Tables("kscjin").Rows(s).Item("df")
a6 = dsin.Tables("kscjin").Rows(s).Item("zh") & ""
a7 = dsin.Tables("kscjin").Rows(s).Item("sxh") & ""
SQL = "insert into kscj(kh,
Ïà¹ØÎÊ´ð£º
<?php
include("adodb/adodb.inc.php");
$db = &NewADOConnection("access");
$access = realpath("Data.mdb");
$dsn = "Provider=Microsoft.J ......
access vba ÖÐÔõôȡµÃÊý×鳤¶È£¿
Êý×éÐУ¿
UBound(Êý×éÃû)
ubound()-lbound()
UBound º¯Êý
·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪָ¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ
Óï·¨ ......
Ò»¸ö³ÌÐòÍùaccessÊý¾Ý¿âÀïÃæÐ´¼Ç¼£¬Ã¿Ììд5ÍòÌõ£¬µÚ¶þÌìɾ³ýǰһÌìµÄ5ÍòÌõ
µ«ÊÇaccessÎļþµÄÌå»ý»áÂýÂýÔö¼Ó¡£¡£¡£
ÎÒ²»Ñ¹ËõÊý¾Ý¿âµÄÇé¿öÏ£¬Ê²Ã´Ê±ºòÊý¾Ý¿âµÄÌå»ý²Å²»Ôö¼ÓÄØ£¿
ÎÒɾ³ý¼Ç¼µÄʱºò£¬Êý¾Ý¿âÌå ......
ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1
Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡
ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ
²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä
top n Õâ¸öûÓа취ʹÓò ......