ADOQueryÈçºÎ½«ExcelÊý¾Ýµ¼ÈëAccessÊý¾Ý¿â?
ÈçºÎ½«ExcelÊý¾Ýµ¼ÈëAccessÊý¾Ý¿â?
±íÃû:crk
End_rbody_60447848//-->
¸Ã»Ø¸´ÓÚ2009-10-19 10:44:48±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
zhoutler
(Ò»´ú³ÌÐò¾Þ½¬--Óý¬ºýÕ³Ìù´úÂë)
µÈ¡¡¼¶£º
#2Â¥ µÃ·Ö£º0»Ø¸´ÓÚ£º2009-10-16 22:47:40
·½·¨1£ºÍ¨¹ýÈý·½¿Ø¼þÈçXLSReadWriteµÈ¶ÁExcelµÄSheetÄÚÈÝ£¬È»ºóÁ¬½Óµ½AccessÊý¾Ý£¬Ð´Èë±í¡£²»ÒªËµÔõô²Ù×÷AccessÊý¾Ý¿â½øÐбíµÄInsert¶¼²»Çå³þ¹þ¡£
·½·¨2£ºÓÃJetÒýÇæ´ò¿ªExcelµÄÎļþ£¬ÕâÑùÈçͬ²Ù×÷AccessÒ»Ñù£¬Select³öÀ´£¬È»ºóInsertÊý¾Ýµ½AccessÀïÃæÈ¥.
·½·¨3£ºÓÃCom½Ó¿Ú¶ÁExcelÄÚÈÝ£¬Insertµ½Access±í¡£
ÕâÀﻹ·¢Ò»¸öÌù°¡£¿
procedure TExInput.Excel1Click(Sender: TObject); //ʵÏÖExcelµ¼ÈëSQL
var
sTableName, ErrInfo: string;
var
TableName,CBMonth ,sqlStr:String;
begin
TableName :='BCTZ'+ComboBoxYear.Text+ComboBoxMonth.Text;
sqlStr:='create table BCTZ'+ComboBoxYear.Text+ComboBoxMonth.Text+'( BmNo char(20),RsNo char(20),TzRq char(20), BcNo char(20), Name char(20), BmMc char(20))';
ADOQuery1.sql.clear;
ADOQuery1.sql.add(sqlStr);
ADOQuery1.execsql;
try
ADOConn.Connected := False;
ADOConn.ConnectionString := Format(context, [Trim(edtPasswd.Text), Trim(edtUser.Text), Trim(edtServerName.Text), Trim(edtServerIP.Text)]);
&n
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......
ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jpg ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......