½«excelÊý¾Ýµ¼Èë Access ÎÊÌâ - VB / »ù´¡Àà
ÓÃVB³ÌÐòÖн«excelµÄÎļþ·ÅÔں͹¤³Ìͬһ¸öÎļþ¼ÐÖУ¬µ¼ÈëʱûÓдíÎ󣬵«ÔÚ±ðµÄĿ¼Ïµ¼Èë¾Í»á³öÏÖ´íÎó
Ìáʾ£º Ö÷¹Ø¼ü×ÖÖØ¸´£¨Õâ¸öÅжÏÎÒÔÚ³ÌÐòÖмÓÁË£¬ÔÚºÍACCESSͬһĿ¼ÏÂʱû³öÏÖ´íÎó£©
CommonDialog1.FileName = ""
'CommonDialog1.flags = vbofnfilemustexist
CommonDialog1.Filter = "All file|*.*|(*.xls)|*.xls"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "µ¼ÈëÎļþ"
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then
' X = MsgBox("ûÓÐÕâ¸öÎļþ", 37, "Ìáʾ")
Else
Dim oConn As New ADODB.Connection
'Á¬½ÓExce
' On Error Resume Next
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CommonDialog1.FileName & ";" & "Extended Properties=""Excel 8.0;"""
'oConn.Execute ("insert into [;database=f:\µÇ¼ÇÏîÄ¿\zgda.mdb].¸öÈË»ù±¾×ÊÁÏ1(ID,fld1,fld2) Select * from [Sheet1$]" & "where ID not in (select ID from [;database=zgda.mdb].¸öÈË»ù±¾×ÊÁÏ1)")
oConn.Execute ("insert into [;database=" & app.path&"\zgda.mdb].¸öÈË»ù±¾×ÊÁÏ1(ID,fld1,fld2) Select *
Ïà¹ØÎÊ´ð£º
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ʹÓÃACCESS×î´óµÄÒþ»¼¾ÍÊDz»°²È«¡£½ñÌì¶ÔACCESSÊý¾Ý¿âÉèÖÃÁËÒ»¸öÃÜÂ룬±ØÐëʹÓÃÃÜÂë²ÅÄÜ´ò¿ª£¬µ«ÊÇÔÚ³ÌÐòÖÐÈ´ÎÞ·¨Á¬½ÓÊý¾Ý¿âÁË¡£´ó¼ÒÖªµÀʹÓÃÓû§ÃûºÍÃÜÂ룬ÈçºÎÁ¬½ÓACCESSÊý¾Ý¿â£¿Ã²ËÆACCESSµÄÓû§Ãû»¹²»ÖªµÀ£¿Ö»Öª ......