有一个txt文本文件,其文件格式如下:“2003-9-12 8:00:00”,“50”;“2003-9-12 9:00:00”,“40”;“2003-9-12 10:00:00”,“30”;
在VB中怎么利用ADO控件将上述的三条记录:“2003-9-12 8:00:00”,“50”;“2003-9-12 9:00:00”,“40”;“2003-9-12 10:00:00”,“30”;分成两列导入在SQLServer数据库中的table1表中。导入后的表为:
第一列 第二列
2003-9-12 8:00:00 50
2003-9-12 9:00:00 40
2003-9-12 10:00:00 30
要是有别的方法,敬请赐教。谢谢!!
在VB中怎么利用ADO控件将上述的三条记录:“2003-9-12 8:00:00”,“50”;“2003-9-12 9:00:00”,“40”;“2003-9-12 10:00:00”,“30”;分成两列导入在SQLServer数据库中的table1表中。导入后的表为:
第一列 第二列
2003-9-12 8:00:00 50
2003-9-12 9:00:00 40
2003-9-12 10:00:00 30
要是有别的方法,敬请赐教。谢谢!!
解决方案 »
- 我想在浏览页面时,通过VB代码自动将一段文本填入文本框中并自动提交。如何实现?
- 最大化后还原,所有控件都变形。。。郁闷
- 在VB中调用数据库时,datagrid 或是文本框 显示的小数数字前面的零不显示 ,如何解决?在线等!
- SQL语句怎么写下面的统计?有点难,有点复杂,有点头大....
- 大家能不能讨论一下仓库管理系统的数据结构及算法问题啊
- VB6.0 如果enabled=false,如何激活CommandButton鼠标响应事件
- 反编译程序!时间限制问题!!
- crystal report的错误
- 第一次来,有个菜鸟级问题:)
- 那位大虾有vb控制扫描仪的原码。。。。帮帮小弟。。。。
- API函数中的带*参数如何声明?
- 我想请问swf-exe/exe-swf怎样转换的啊```
2.用split()函数将文本文件分解成三条记录
3.再用split()函数分解
4.然后通过Rs赋值,保存到数据库中
2003-9-12 9:00:00|40
2003-9-12 10:00:00|30文本文件存为f:\test.txt然后将数据导入test数据库的tb1表中:Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim strFile As String
strFile = "f:\test.txt"
cn.Open "provider=sqloledb.1;password=;persist security=true;user id=sa;initial catalog=test;data source="
cm.ActiveConnection = cn
cm.CommandType = adCmdText
'从指定的数据文件中导入tb1,该文件使用竖杠 (|) 字符作为字段终止符,使用 \n 作为行终止符。
cm.CommandText = "BULK INSERT test.dbo.[tb1] " & _
"From '" & strFile & "'" & _
"WITH " & _
"( " & _
"FIELDTERMINATOR = '|', " & _
"ROWTERMINATOR = '\n'" & _
")"
cm.Execute
Set cm = Nothing
Set cn = Nothing
当然如果不需要用程序实现的话,直接用DTS就可以了
我就是用split()分隔的