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,
Ïà¹ØÎÊ´ð£º
ACCESSÖн¨Á¢Çл»±íµ¥,
µã»÷ ¹¤¾ß/×ÊÁϿ⹫ÓóÌʽ/Çл»±íµ¥¹ÜÀíÔ± ºó
Ìáʾ£ºMicrosoft office accessÎÞ·¨½¨Á¢visual basicÄ£×飡
µ½µ×ÊdzöÁËʲ÷áÎÊÌâÄØ£¿
µÚÒ»´ÎÕâÑù½¨Á¢Çл»±íµ¥ÊÇ¿ÉÒԵģ¬µ«ÊÇÓÉÓÚÓÐ ......
access vba ÖÐÔõôȡµÃÊý×鳤¶È£¿
Êý×éÐУ¿
UBound(Êý×éÃû)
ubound()-lbound()
UBound º¯Êý
·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪָ¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ
Óï·¨ ......
³õÓÃACCESSÊý¾Ý¿â£¬ÒªÊµÏÖÒ»¸ö¹ØÁª²éѯ£¬sqlÓï¾äÈçÏ£ºselect pid,product_Type.name as tid,name,img_url,context,remark from Product join product_Type on product.type_id = product_Type.type_id order by pid ......
ÎÒÔ±¾ÊÇÓÃACCESSµÄÊý¾Ý¿â£¬ÏÖÔÚ¸ÄÓÃSQLServer2005ÁË£¬ËùÒÔÏë°Ñ֮ǰµÄÊý¾ÝÈ«¶¼µ¼µ½SQLSERVERÀïÀ´¡£
ÏÖÓÐÎÊÌâÈçÏ£º
1:¸ÄÓÃSQLserverºó£¬Êý¾Ý¿âµÄ½á¹¹ÓиĶ¯¡£Ô±¾ÔÚaccessÖÐËùÓеĵ¥¾ÝÓÃÒ»¸ö¡°µ¥¾ÝÐÅÏ¢¡±Ö ......