vb6.0文件操作
来源:百度知道 编辑:UC知道 时间:2024/05/22 13:58:04
以下代码是调出文件浏览器窗口,选择xls格式文件,然后把第一行内容显示在listview上。
请问如何实现对.dbf格式文件的操作以实现相同的结果。(希望具体点)
Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Dim Tex As String
Dim ln As String
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Dim x As Integer
CD.ShowOpen
List2.MousePointer = 11
Open CD.Filename For Input As 1
Do Until EOF(1)
Line Input #1, ln
Tex = Tex & ln & vbCrLf
Loop
'判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(CD.Filename) '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
For x = 1 To 4
List2.AddItem xlsheet.Cel
请问如何实现对.dbf格式文件的操作以实现相同的结果。(希望具体点)
Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Dim Tex As String
Dim ln As String
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Dim x As Integer
CD.ShowOpen
List2.MousePointer = 11
Open CD.Filename For Input As 1
Do Until EOF(1)
Line Input #1, ln
Tex = Tex & ln & vbCrLf
Loop
'判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(CD.Filename) '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
For x = 1 To 4
List2.AddItem xlsheet.Cel
前面都相同,就改For循环中的一句。
在进行该操作前,请确定先打开你的数据库连接,这里举例打开的连接名是conn
For x = 1 To 4
conn.execute("intert into 表名(字段名) values('" & xlsheet.Cells(1, x) & "')")
Next x
其中的表名就是你要写入的那个数据库里的表名,字段名就是你要写那的那个表里的那个字段的名字。