1使用Access程序新建数据库
2使用Access程序导入“Paradox”数据库
3再将导入的表导出到Excel
Private Sub ConvDb()
Const StrTableName As String = "Mrp"
Dim appAccess As AccessApplication
Dim strDB As String, StrFN As String
' Initialize string to database path
strDB = "D:\Newdbmdb"
' Create new instance of Microsoft Access
Set appAccess = CreateObject("AccessApplication")
' Open database in Microsoft Access window
appAccessNewCurrentDatabase strDB
StrFN = "C:\wisdb\"
appAccessDoCmdTransferDatabase 0, "Paradox 7x", StrFN, 0, "Drmpdb", StrTableName
StrFN = "C:\wisdb\Mrpxls"
appAccessDoCmdTransferSpreadsheet 1, , StrTableName, StrFN
appAccessQuit
Set appAccess = Nothing
WorkbooksOpen StrFN, , , , , , , , , , , , True
Kill strDB
End Sub
想办法把PARADOX 中数据导出成sql2000能识别的文件格式即可。
如果你的要求是用一种语言来打开数据库的话,那么你必须首先了解dbf文件的格式,这一点非常的重要。下面是一个c语言写的读dbf文件的小程序,你看看吧!,你可以编辑一下,看可否达到你的要求!
#include <stdlibh>
#include <stdioh>
#define NFIELDS 5
#define TRUE 1
#define FALSE 0
/ DBF文件头结构 /
struct dbf_head{
char vers;
unsigned char yy,mm,dd;
unsigned int no_recs;
unsigned short head_len,rec_len;
char reserved[20];
};
/ DBF字段描述结构 /
struct field_element{
char field_name[11];
char field_type;
unsigned int offset;
unsigned char field_length;
unsigned char field_decimal;
char reserved1[2];
char dbaseiv_id;
char reserved2[10];
char production_index;
};
char dbf_fields_name[NFIELDS]={
"a", "b","c","d","e"
};
/ 全局变量 /
struct dbf_head file_head;
struct field_element fields;
int length;
unsigned int offset;
/ 整形数字节顺序改变函数 /
void revert_unsigned_short(unsigned short a)
{
unsigned short left,right;
left=right=a;
a=((left&0x00ff)<<8)|((right&0xff00)>>8);
}
void revert_unsigned_int(unsigned int a)
{
unsigned int first,second,third,forth;
first=second=third=forth=a;
a=((first&0x000000ff)<<24)|((second&0x0000ff00)<<8)|
((third&0x00ff0000)>>8)|((forth&0xff000000)>>24);
}
/ 主函数代码 /
void main()
{
register int i,j;
FILE fp_dat;
char buffer;
char allspace;
int fields_count, matched=FALSE;
unsigned int counts;
/ 打开dbf文件 /
if((fp_dat=fopen("adbf","rb"))==NULL){
fprintf(stderr,"Cannot open dbf file to read!\n");
exit(1);
}
/ 读取表头纪录 /
fseek(fp_dat,0L,SEEK_SET);
fread((void)&file_head,sizeof(struct dbf_head),1,fp_dat);
revert_unsigned_int(&file_headno_recs);
revert_unsigned_short(&file_headhead_len);
revert_unsigned_short(&file_headrec_len);
/ 计算字段数 /
fields_count=(file_headhead_len-sizeof(struct dbf_head)-1-263)/sizeof(struct field_element);
/ 开辟存储字段子记录的空间 /
if((fields=(struct field_element)malloc(sizeof(struct field_element)fields_count))==NULL){
fprintf(stderr,"Cannot allocate memory for fields array !\n");
fclose(fp_dat);
exit(2);
}
/ 开辟存储一条数据记录的空间 /
if((buffer=(char)malloc(sizeof(char)file_headrec_len))==NULL){
fprintf(stderr,"Cannot allocate memory for record buffer!\n");
fclose(fp_dat);
exit(3);
}
/ 开辟一个全为空格的纪录,以便后面做比较 /
if((allspace=(char)malloc(sizeof(char)file_headrec_len))==NULL){
fprintf(stderr,"Cannot allocate memory for all_space record buffer!\n");
fclose(fp_dat);
exit(4);
}
else{
memset((void)allspace,'\x20',file_headrec_len-1);
allspace[file_headrec_len]='\0';
}
/ 读取所有的字段子记录,调整整形数的字节顺序 /
fread((void)fields,sizeof(struct field_element),fields_count,fp_dat);
for(i=0;i<fields_count;i++)
revert_unsigned_int(&fields[i]offset);
/ 计算各个字段的字节偏移量,第一字节为删除标记 /
fields[0]offset=1;
for(i=1;i<fields_count;i++)
fields[i]offset=fields[i-1]offset+(unsigned short)fields[i-1]field_length;
/ 开辟存储字段长度和偏移量的数组 /
length=(int)malloc(sizeof(int)fields_count);
offset=(unsigned int)malloc(sizeof(unsigned int)fields_count);
if(length==NULL||offset==NULL){
fprintf(stderr,"Cannot allocate memory for array length or offset\n");
exit(-1);
}
/ 找到所需字段的偏移量和长度,如果没有相应字段,程序退出 /
for(i=0;i<NFIELDS;i++)
{
for(j=0;j<fields_count;j++)
{
if(strcmp(dbf_fields_name[i],fields[j]field_name)==0)
{
offset[i]=fields[j]offset - 1;
length[i]=fields[j]field_length;
matched=TRUE;
break;
}
if(!matched){
fprintf(stderr,"dbf file structure is invalid, field %s not found\n", dbf_fields_name[i]);
exit(-1);
}
else
matched=FALSE;
}
}
/ 定位文件指针到数据记录的开始位置 /
fseek(fp_dat,(long)file_headhead_len,SEEK_SET);
/ 读取每条记录的字段数据 /
for(counts=0;counts<file_headno_recs;counts++)
{
/ 如果有删除标记,跳到下一条记录 /
if(fgetc(fp_dat)==(int)'\x2a')
{
fseek(fp_dat,(int)file_headrec_len-1,SEEK_CUR);
continue;
}
fread((void)buffer,(int)file_headrec_len-1,1,fp_dat);
buffer[file_headrec_len]='\0';
/去掉全为空格的记录行/
if(strcmp(buffer,allspace)==0)
continue;
}
fclose(fp_dat);
/ 释放开辟的空间 /
free(buffer);
free(allspace);
free(offset);
free(length);
}
在DB2客户机上连接远程DB2服务之前,必须正确设置服务端通信协议。DB2支持的协议有TCP/IP、NetBIOS、NPIPE等。
连接远程DB2数据库服务的基本步骤如下:
1 在客户机上对远程DB2节点进行编目。
2 在客户机上对远程数据库进行编目。
一、第一步
首先在客户机上对远程节点进行编目,这里需要确认远程主机在客户机上的名称、IP地址、端口号等基本命令如下:
1 CATALOG TCPIP //编目一个TCP/IP节点
NODE local_node_name //远程主机在客户机上的别名
REMOTE hostname | IP //远程主机IP地址
SERVER service_name | posr_number // 服务名称 / 端口号
2 TERMINATE //刷新目录高速缓存
3 LIST NODE DIRECTORY //查看客户机目录节点
4 UNCATALOG NODE node_name //删除编目节点node_name
二、第二步
再对已编目的节点进行数据库编目,这里用户需要确认远程连接的数据库的名称、该数据库在本机上的别名、第一步设置的远程主机在客户机上的别名(即节点名)和设置认证方式。命令如下:
1 CATALOG DATABASE remote_db_name //远程数据库名称
AS local_db_name //本地数据库别名
AT NODE local_node_name //本地数据库节点别名(第一步中配置)
2 TERMINATE //刷新目录高速缓存
3 LIST DB DIRECTORY //查看本地数据库目录
4 UNCATALOG DB db_name //删除数据库编目db_name
三、第三步
连接远程数据库,使用第二步中设置的本地数据库别名来连接。命令如下:
CONNECT TO local_db_name //利用本地数据库别名连接远程数据库
USER userid //用户ID
USING password //登陆密码
以上就是关于如何将db表导入sql 2000全部的内容,包括:如何将db表导入sql 2000、怎样打开.db的数据库文件啊、如何远程连接db2数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)