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
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ËÄÜ°ïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔÇ°Ò»Ö±ºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......