从txt中导入数据到Oracle数据库表中

①  首先将一张EXE表中的数据去除首行的表头,然后插入N-1列(N为字段数),在插入的列中插入一个标记符(标记符与待会在Linux中运行的脚本隔离标志一致)。

 

②  将EXE中的数据复制到123.TXT文档中。


③  将文件通过FlashFXP文件传输工具上传到Linux主机指定位置


④  在数据库中创建一张字段与EXE表中字段类型一致的表:

Create table address (dishi varchar2(100),quxianvarchar2(100),xiangzhen varchar2(100));

⑤  通过secureCRT  Linux服务器主机的软件登入某个主机地址下


⑥  在Linux主机,假如在myDir/目录下创建一个dao.sh文件(作用为连接导入数据的数据库的配置文件),写入内容如下:

 

#!/bin/ksh  //固定写法

sqlldruserid=wangpeng2/wp_0820#@crm_clone control=$1

//wangpeng/ wp_00#为连接数据库的账户名和密码 账号与密码用/分隔

// control=$1 接收一个变量

⑦  在myDIR/目录下再创建一个ru.ctl文件写入内容:

loaddata //固定写法

infile'phone.txt' //数据源文件名即你第二步准备好的TXT文件名

Appendinto table cm_user_address//导入到具体的表

fieldsterminated by "|"  //数据是通过什么分割的,与EXE表中分隔符一致

(dishi,quxian,xiangzhen)//表中所有的字段名

⑧  执行导入命令操作:

dao.sh ru.ctl //执行dao.sh这个shell命令文件空格后传入参数即control = $1 需要接收的参数 即ru.ctl文件


 

  • 1
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要实现这个需求,需要先了解一下 ACCESS 的 VBA 编程语言和 Oracle 数据库的连接方式。 1. 连接 Oracle 数据库 在 VBA 连接 Oracle 数据库,需要使用 ADODB(ActiveX Data Objects)对象。代码如下: ``` Dim conn As New ADODB.Connection conn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=myOracleDB;User ID=myUsername;Password=myPassword;" conn.Open ``` 其,`myOracleDB` 是 Oracle 数据库的名称,`myUsername` 和 `myPassword` 分别是连接数据库的用户名和密码。 2. 查询 ACCESS 数据库数据 在 VBA 查询 ACCESS 数据库数据,可以使用 ADO(ActiveX Data Objects)对象。代码如下: ``` Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM myTable", conn ``` 其,`myTable` 是 ACCESS 数据库的表名。 3. 导入数据Oracle 数据库 在 VBA 将查询出来的数据导入Oracle 数据库,可以使用 SQL 语句。代码如下: ``` Dim sql As String sql = "INSERT INTO myOracleTable VALUES (value1, value2, ...)" conn.Execute sql ``` 其,`myOracleTable` 是 Oracle 数据库的表名,`value1`、`value2` 等是要插入的数据值。 综合起来,可以编写如下的 VBA 代码实现按钮点击事件查询数据导入到连接的 Oracle 数据库表中: ``` Private Sub btnImport_Click() ' 连接 Oracle 数据库 Dim conn As New ADODB.Connection conn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=myOracleDB;User ID=myUsername;Password=myPassword;" conn.Open ' 查询 ACCESS 数据库数据 Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM myTable", conn ' 将数据导入Oracle 数据库 Do Until rs.EOF Dim sql As String sql = "INSERT INTO myOracleTable VALUES (" & rs.Fields("Field1").Value & ", " & rs.Fields("Field2").Value & ", ...)" conn.Execute sql rs.MoveNext Loop MsgBox "数据导入成功!" End Sub ``` 其,`Field1`、`Field2` 等是 ACCESS 数据库的字段名,`...` 表示还有其他字段需要导入

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值