再讲ＡＤＯ

blackttea1 · 发表于 2016-4-8 12:54

向好心人致敬！！！！

hyefeifei · 发表于 2016-4-10 10:57

本帖最后由 hyefeifei 于 2016-5-16 14:55 编辑

　　二、如何把excel的数据写入文本文件
　　答案是：以随机方式写入文本文件
　　什么是随机方式呢？
　　且看 open语句语法：
　　Open 路径访问模式文件号长度
　　其中，访问模式共5种：①追加②二进制③输入④输出⑥随机
　　默认方式为⑥随机
　　且看示例：

　　现在要把图中表的数据导出到文本文件，程序如图：

　　代码如下：

Public Type udtGx
bh As String * 30
xh As Long
bj As String * 10
lj As String * 10
gx As String * 10
End Type

Public Sub Tofile()
Dim strPathToFile As String
Dim m_Sj As udtGx
Dim arr
Dim i As Long
Dim myFileNo As Integer
strPathToFile = "d:\temp\fltab.dat"
If Dir(strPathToFile) <> "" Then Kill strPathToFile
myFileNo = FreeFile
Open strPathToFile For Random As myFileNo Len = Len(m_Sj)
With ThisWorkbook.Worksheets("Fltab")
      arr = .Range("a2:e29")
End With
For i = 1 To UBound(arr)
      With m_Sj
         .bh = arr(i, 1)
         .xh = arr(i, 2)
         .bj = arr(i, 3)
         .lj = arr(i, 4)
         .gx = arr(i, 5)
      End With
      Put myFileNo, , m_Sj
Next
Close myFileNo
End Sub

为什么要以随机方式写入文件呢？
　　当然，不是非这种做不可，但这样做有这样做的好处：
　　1. 由固定长度的记录顺序排列而成每个记录可由多个数据项组成。
　　2. 记录是最小的读/写单位，可以直接定位在任意一个记录后执行读/写操作，便于查询和修改。
　　3. 通过制定记录号可以快速访问相应的记录。
　　4. 当打开文件后，在读出数据时同时允许写入新数据。
　　今天讲到这里，有点跳脱ADO了，下讲再讲把数据从文件取回到数据库。

feiren228 · 发表于 2016-4-11 08:43

hyefeifei 发表于 2016-4-10 10:57
二、如何把excel的数据写入文本文件
答案是：以随机方式写入文本文件
什么是随机方式呢？

学习，慢慢消化！期待下一讲。

xd3210 · 发表于 2016-4-11 10:17

期待精彩的下一讲！

feiren228 · 发表于 2016-4-11 11:14

ADO相关教程太少了，期待大师继续完善！

xcc324919 · 发表于 2016-4-11 12:02

期待下一讲。持续学习中

蒙小狸 · 发表于 2016-4-11 14:56

不算太迟容我占个座儿先。。。

山冈飞衣 · 发表于 2016-4-11 15:33

好好学习，期待下一讲。

山冈飞衣 · 发表于 2016-4-14 11:15

大神再讲下，如何根据excel表内容，用临时表批量更新sql数据表相关字段

hyefeifei · 发表于 2016-4-15 12:19

前面把数据存入txt文件了，如何从txt文件中取回数据呢，很简单，现在把程序贴在下面，讲解在图中：

如果按以上程序，取回数据如下，各位看图会看到多取回了一行：

原因如下：

修改后的程序如下:

Sub fromfile11()
Dim m_Sj As udtGx
Dim strPathToFile As String
Dim arr(1 To 1000, 1 To 5)
Dim myFileNo As Integer
Dim k As Long
strPathToFile = "d:\temp\fltab.dat"
myFileNo = FreeFile
Open strPathToFile For Random As myFileNo Len = Len(m_Sj)
With m_Sj
Do
Get myFileNo, , m_Sj
If EOF(1) Then Exit Do ‘在这里判断是否到了文件最后，及时退出，免得多取一行
k = k + 1
arr(k, 1) = Trim(.bh)
arr(k, 2) = Trim(.xh)
arr(k, 3) = Trim(.bj)
arr(k, 4) = Trim(.lj)
arr(k, 5) = Trim(.gx)
Loop
Close myFileNo
End With
With ThisWorkbook.Worksheets("fltab")
.Range("g2:q6000").Clear
.Range("g2").Resize(k, 5) = arr
End With
End sub

复制代码

以下程序把文本文件中的记录插入数据库：

Sub tobase()
Dim cmd As Object
Dim mj As udtGx
Dim strPathToFile As String
Connect "NorthwindSQL"
Conn.Open
strPathToFile = "d:\temp\fltab.dat"
Set cmd = CreateObject("adodb.command")
With cmd
.CommandText = "INSERT INTO fltab VALUES (?,?,?,?,?)"
Set .activeconnection = Conn
Open strPathToFile For Random As #1 Len = Len(mj)
.Parameters.Refresh
With mj
Do
Get #1, , mj
If EOF(1) Then Exit Do
cmd.Execute Parameters:=Array(.bh, .xh, .bj, .lj, .gx), _
Options:=adCmdText + adExecuteNoRecords
Loop
End With
Close #1
End With
End Sub

复制代码

这方面的东西还有好多没有讲，讲了就太失之于琐碎了，下一讲说说更新数据库表

		自动登录	找回密码
密码			免费注册

[原创] 再讲ＡＤＯ

评分

评分

最新热点 /1