Question

VB如何对接access数据库或excel表

Visual Basic如何对接access数据库或excel表
现在在使用VB制作一个 员工薪资管理系统 期间需要存储很多数据。
本人目前之会对接TXT文档，但是数据类型有点多，光用TXT文档太麻烦了。
VB中使用的是Listview控件，多数操作是存取Listview中的数据到数据库和修改、删除、读取Listview中的数据。
现在向请教下高手，如何与access数据库或excel表对接。
请给出命令的示例，不用那些文字性的详解。
如 创建数据表、数据列、存储某列数值到EXCEL某列中等等的命令示范就行了。

Answer 1

Sub xx()    
    Dim xlApp as Object, wb As Object    
    On Error Resume NExt    
    Set xlApp = GetObject(,"Excel.Application")   '获取Excel运用环境    
    If Not xlApp Is Nothing Then   '如果Excel环境已经打开或者有Excel文件打开     
        Set Wb = xlApp.WorkBooks("a.xls")  
        '那么将Wb对象设置为我们需要工作簿      
        If Err.Number = 9 Then Set Wb = xlApp.WorkBooks.Open("D:\a.xls")
        '如果发生9错误，证明我们需要的工作簿并没有开启，那么利用Workbooks.open命令打开指定工作簿       
    Else     '如果Excel环境没有打开，也就是没有任何Excel文件运行      
        Set xlApp = CreateObject("Excel.Application")      
        '那么利用CreateObject创建Excel运用环境，并设置给Xlapp  
        xlApp.Visible = True  '让Excel表格可见，False为不可见      
        Set Wb = xlApp.WorkBooks.Open("D:\a.xls")   
        '利用Open命令，打开指定工作簿  
    End if   
    
    Dim i as Long
    For i = 1 to 100  '在第一张工作表的第1到100行之间循环
        wb.Sheets(1).Cells(i,"A") = i & "你好"  
        '让“A”列单元格的1到100行，输入“行号i” & “你好”
    Next i
    
    wb.close True
    xlapp.quit  '退出Excel环境
    set wb = Nothing
    set xlapp = Nothing
End Sub

追问

运行提示缺少 End Sub
可代码最后我加上也一样。。。。

追答

我这边测试完全通过的！！那把代码传给我看看！！

追问

这个代码要放在按钮下？ 还是Form直接加载？

追答

晕，是放在按钮下还是Form直接加载，这个要根据你的需要来。
不管放在按钮下还是Form直接加载，你都必须这样来做：
Private Sub Command1_Click()
Sub xx() '这个必须要删掉，一个Sub只能对应一个End Sub
....
End Sub '这个必须要删掉
End Sub

追问

额，大致的看懂了。
现在还有个疑问，如何逐行写入Listview中的不同数据。

追答

你采纳吧，1346Q7914Q联系！或者你把附件贴上来，如果你的数据存在数组中，那么就是一两句代码的事情！！！