vb+ACCESS - VB / Êý¾Ý¿â(°üº¬´òÓ¡£¬°²×°£¬±¨±í)
ÓиöÎÊÌ⣬ÎÒÓиöÊý¾Ý¿â£¨ACCESS£©£¬ÆäÖÐÓиö±í£¬±íÀïÃæÓÐÁ½¸öÁÐÃû£¨ÊéÃû¡¢µ¥¼Û£©£¬ÎÒÔõôÓÃvbÀ´¶ÁÈ¡±íÖеĵ¥¼ÛµÄËùÓмǼ£¨Ò²¾ÍÊÇÕâÒ»ÁУ©£¬²¢ÇóºÍ£¬ÏÔʾÔÚvbµÄtextÉÏÃæ¡£
¸÷λ¸ßÊÖ£¬¹ØºõÉúÃü£¬ÎÒÔÚÏߵȣ¡Çë¼±»ØÌû£¡
sqlÓï¾äÈçÏ£º
select µ¥¼Û from ±í '---ËùÓмǼ
select sum(µ¥¼Û) from ±í '---ËùÓмǼÇóºÍ
Ìí¼ÓADODC¿Ø¼þÓÃÒÔÉÏSqlÓï¾äȥʵÏÖ£¬¾ßÌå´úÂëÍøÉ϶àµÄÏóţë¡£
ÄÜÏêϸµãô£¿
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0)
¸ßÊÖ£¬ÒÔÉϼ¸¾äʲôÒâ˼£¿
ÎÒÉÏÍø²éÁ˲飬ÇëÎʸßÊÖÃÇ£¬ÎÒÏëÓÃÆÕͨµÄ·½·¨À´ÏÔʾһÁеĺÍÔõô°ì£¿
Dim cnn As New ADODB.Connection
Dim appdisk As String
Dim db As String
Dim ss As String
Dim biaoji As Integer
appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & appdisk & "shujuku.mdb"
cnn.CursorLocation = adUseClient
cnn.Open db '´ò¿ªÊý¾Ý¿âÁ¬½Ó
cnn.Execute (¡£¡£¡£¡£)
cnn.Close
ÔÚÏßµÈѽ£¬Ï£Íû¸ßÊִͽ̣¡
'
'
'
dim rst as new adodb.
Ïà¹ØÎÊ´ð£º
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã
ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´...
ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
ÈçºÎ½«Ò»¸öListBoxÖеÄÊý¾Ý´æÔÚÊý¾Ý¿âÖеÄÒ»¸ö×Ö¶ÎÏÂÃæ£¬²¢ÇÒÿÌõ¼Ç¼µÄ×Ö·û´®¸öÊý²»Ò»¶¨ ÒÔ¼°ÈçºÎ´ÓÊý¾Ý¿âÖжÁÈ¡¸ÃListBoxÖеÄËùÓмǼ
C/C++ code:
//´æÈëÊý¾Ý¿â
void __fastcall TForm1::Button5Click(TO ......