ÈçºÎ½«ExcelÊý¾Ýµ¼ÈëAccessÊý¾Ý¿â? ¸øÒ»¶Î´úÂë
ÈçºÎ½«ExcelÊý¾Ýµ¼ÈëAccessÊý¾Ý¿â?,
±íÃû:crk
²»¶¥²»ÐÐ
excel¿ÉÒÔÖ±½Ó×÷ΪÊý¾Ý¿â²Ù×÷
ʹÓÃADOÈ»ºó¸ã½øÈ¥
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)]);
ADOConn.Connected := True;
except
Application.MessageBox('Êý¾Ý¿âÁ¬½Ó³ö´í£¡ ', 'ÌáʾÐÅÏ¢', MB_OK or MB_ICONERROR);
Abort;
end;
OpenDialog1.DefaultExt := 'xls';
OpenDialog1.Filter := 'Excel File|*.xls';
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
ADOCommand1.ConnectionString := Format(SExcelText, [
Ïà¹ØÎÊ´ð£º
±¾À´ÎÒÊÇÓÃACCESS+VB½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬
ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jpg ......