Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

½«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 - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

ʹÓôøÓû§ÃûºÍÃÜÂëµÄACCESSÁ¬½Ó·½Ê½ - .NET¼¼Êõ / C#

ʹÓÃACCESS×î´óµÄÒþ»¼¾ÍÊDz»°²È«¡£½ñÌì¶ÔACCESSÊý¾Ý¿âÉèÖÃÁËÒ»¸öÃÜÂ룬±ØÐëʹÓÃÃÜÂë²ÅÄÜ´ò¿ª£¬µ«ÊÇÔÚ³ÌÐòÖÐÈ´ÎÞ·¨Á¬½ÓÊý¾Ý¿âÁË¡£´ó¼ÒÖªµÀʹÓÃÓû§ÃûºÍÃÜÂ룬ÈçºÎÁ¬½ÓACCESSÊý¾Ý¿â£¿Ã²ËÆACCESSµÄÓû§Ãû»¹²»ÖªµÀ£¿Ö»Öª ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ