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,
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
¸÷λ´óÏÀ£º
ÔÚ´°ÌåÀïÓÐÒ»Áбí¿ò£¬ÃûÔ»¡°ÉÌÆ·±àºÅ¡±£¬ÐÐÀ´Ô´ÀïµÄÄÚÈÝÓУºÉÌÆ·±àºÅºÍÉÌÆ·Ãû£¨À´×ÔÉÌÆ·±í£©¡£
µ«ÊÇÎÊÌâ³öÏÖÁË£ºÔÀ´ÉÌÆ·±íÀïµÄÉÌÆ·±àºÅÊÇ4λ£ ......
Çë¸øÒ»¸öACCESS¶àÌõ¼þ²éѯµÄÀý×Ó,×Ö¶Î:ÐÕÃû,µç»°,¹«Ë¾,µØÖ·Îª²éѯÌõ¼þ,Ö»Òª²»Îª¿Õ,¾Í×÷Ϊ²éѯÌõ¼þ.
ÄãÏÈ給這個Щ×Ö¶Î設ÖÃ變Á¿並賦³õÖµ為:%,
ÔÙÔÚ²é詢 ......
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
¸øaccessÊý¾Ý¿â¼ÓÃܵIJ½ÖèÈçÏ£º
£¨1£©´ò¿ªaccessÈí¼þ£¬½çÃæÈçͼ1Ëùʾ
......