请问各位达人,如何将文本文件中的数据导入数据库的表中.
解决方案 »
- 大家说,为什么我的"实验保存"功能不能实现啊?跪求具体的原因~!
- 急,CLOSE_WAIT问题!
- 如何将图片转换成二进制,然后再将二进制转换成图片?
- 怎样实现字段的自动匹配(sql)?
- 希望程序支持zip或rar文件
- 实时错误 '3343 ' 不可识别的数据库格式
- 请问如何判断当前时间是否是“23点59分59秒”如果是的话就等到“0点1分1秒”在继续下面的语句?
- 用VB如何实现单向链表和双向链表?
- 请问如何配置FTP服务器?????
- 抄袭现象真的那么严重吗?
- 急急问题~ XP下怎样用VB 删除网页临时文件夹Temporary Internet Files 里的文件!
- 关于MSSOAP.如何获得它得方法返回值..谢谢...........在线等
或 Open文本文件,读取数据,再Insert到数据库.
EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:\DT.txt -c -Sservername -Usa -Ppassword’ 引用ADO来执行这个语句
' Close before reopening in another mode.
intLastColNum = objImportSheet.UsedRange.Columns.Count
intLastRowNum = objImportSheet.UsedRange.Rows.Count
For intcounti = 1 To intLastRowNum ''Check if Empty Data Row blnNullRow = True
For inti = 1 To 10
If Trim$(objImportSheet.Cells(intcounti, inti).Value) <> "" Then
blnNullRow = False
End If
Next inti If blnNullRow = False Then
objImportSheet.Cells(intcounti, 1).Value() End If
Next intcounti
FileClose(1)
我用上面语句读取文件,怎么运行不过呢?能帮我看看吗