½«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 *
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......