如何将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, [
相关问答：
IsSqlDataBase = 0 '主数据库类型(1=SQL，0=AC)
'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......
本来我是用ACCESS+VB建立一个软件（局域网），现在由于办公地点有变动，相换成INTERNAT的，有没有办法解决，
象这样的情况，如果是广域网，最好改成：B\S的
如果是局域网的，最好改成：C\S的
http://downlo ......
我的一个access数据库中的photo字段中的内容是这样的：
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jp ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
在MSSQL中，我们可以一次查询多个数据表并加入到数据集中，中间只需用分号隔开．如：
＂select * from A;select * from B;select * from C＂,填充数据集后在DS中就有了三张表．
但在用同样的语句访问ACCESS数� ......
