VB Accessµ¼³öÊý¾Ýµ½DB2 - VB / »ù´¡Àà
ÎÒÏë´ÓAccess µ¼³öÊý¾Ýµ½DB2£¬ ±ÈÈç˵Access±íÖÐÓÐ3ÌõÊý¾Ý£¬ÎÒÒªµ¼ÈëDB2£¬²¢ÇÒҪɾ³ý¡£ µ«ÊDzåÈë3ÐпÉÒԳɹ¦£¬É¾³ýÖ»ÄÜɾ³ý1ÐУ¬²¢ÇÒµÚÒ»ÐÐɾ³ý3±é£¨ÒòΪÓÐ3ÌõÊý¾Ý£©¡£ ´úÂëÈçÏ£º¿ÒÇë¸÷λ¸ßÊÖÖ¸µãÒ»¶þ£¬Ð¡µÜ¸Ð¼¤²»¾¡£¬Ð»Ð»£¡
VB code:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim I As Integer
Set db = CurrentDb
'delete the record with the reloaded key seg -> seq -> ct
sql = "select distinct ctry_cd,tax_cd,tax_type_cd from " & strDataTblName
Set rs = db.OpenRecordset(sql)
For I = 0 To rs.RecordCount - 1
'x1
sql = "delete * from " & TAX_RULE_SEG
sql = sql & " where ctry_cd='" & rs("ctry_cd") & "'"
sql = sql & " and tax_cd='" & rs("tax_cd") & "'"
sql = sql & " and tax_type_cd='" & rs("tax_type_cd") & "'"
db.Execute sql
sql = "delete * from " & TAX_RULE_SEQ
sql = sql & " where ctry_cd='" & rs("ctry_cd") & "'"
sql = sql & " and tax_cd='" & rs("tax_cd") & "'"
sql = sql & " and tax_type_cd='" & rs("tax_type_cd") &a
Ïà¹ØÎÊ´ð£º
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......
ÈçºÎ½«Ò»¸öListBoxÖеÄÊý¾Ý´æÔÚÊý¾Ý¿âÖеÄÒ»¸ö×Ö¶ÎÏÂÃæ£¬²¢ÇÒÿÌõ¼Ç¼µÄ×Ö·û´®¸öÊý²»Ò»¶¨ ÒÔ¼°ÈçºÎ´ÓÊý¾Ý¿âÖжÁÈ¡¸ÃListBoxÖеÄËùÓмǼ
C/C++ code:
//´æÈëÊý¾Ý¿â
void __fastcall TForm1::Button5Click(TO ......