作者：乔山办公网日期：
返回目录：word文档
直接导肯定是不行的，你可以试试先复制到excel表里，再导一下
首先，建立一个Access2000数据库data.mdb，在库中建立一个表userdata，里面有“工号”、“姓名”、“性别”、“部门”四个字段，都是字符型的，再输入一些数据，再建立一个窗体Form1，在Form1中，放置以下控e799bee5baa6e997aee7ad94e78988e69d83333件：
控件名称 属性 值 说明
Tlabel1 Caption "请输入文件名"
TEdit1 Name "" 用来输入文件名，带扩展名的
TButton1 Caption "保存"
TButton2 Caption "退出"
ADOTable1 Active
ConnectionString
TableName True
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False
userdata
下面是相关代码:
file://---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant OLEObject;
AnsiString dataword;
if(Trim(Edit1->Text)=="")
{
ShowMessage("请输入文件名");
return;
}
String currentPath=GetCurrentDir()+"//"+Trim(Edit1->Text);
OLEObject=CreateOleObject("Word.Basic");
OLEObject.Exec(Procedure("FileNew"));
OLEObject.Exec(Procedure("EndOfDocument"));
ADOTable1->First();
while(ADOTable1->Eof!=True)
{
dataword=ADOTable1->FieldValues["工号"]+ADOTable1->FieldValues["姓名"]+ADOTable1->FieldValues["性别"]+ADOTable1->FieldValues["部门"];
OLEObject.Exec(Procedure("Insert")<<dataword);
ADOTable1->Next();
}
OLEObject.Exec(Procedure("StartOfDocument"));
OLEObject.Exec(Procedure("FileSaveAs")<<currentPath);
OLEObject.Exec(Procedure("FileClose")<<1);
ShowMessage("文件已经写入！谢谢使用！");
}
---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
this->Close();
}
---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
Edit1->Text="";
}
1.首先连百接Mysql
2.右击空白处，选择导入向导
3.选择导入类型：MS ACCESS数据度库（*.mdb,*.accdb）点击下一步
4.浏览知一个MDB数据库文件，打开成功后出现表格，选择你要导入的表道格，点击下一步
5.出现源表 目标表 新建表，根据你内的需求选择，然后选择下一上
6.点击开始容，导入完成
代码如下：
$content = file($haoma); //$temp=file("seo.csv");//连接来EXCEL文件,格式为了.csvfor ($i=0;$i <count($content);$i++){$string=explode(",",$content[$i]);//通过循环得源到EXCEL文件中每行百记录的值$sql = "insert into {$tablepre}object (area,objectname,objectaddress,state,commend) values ('$string[0]','$string[1]','$string[2]','$state','$commend')";$sqls = mb_convert_encoding($sql,"UTF-8","GBK"); //这里用度的是urf8编码 $rs = $db->query($sqls);