Question

我真的试图找到示例，语法等，但它总是将我重定向到excel问题。也许我使用了一种完全错误的方法。

所以我现在用vba代码中的visual studio 2015编写一个Windows应用程序。主要是该程序将收集输入到文本框中的信息，然后将其保存在一个小型数据库中。最初我使用Excel作为我的“testdatabase”，但主要问题是它只能由一个用户访问，显然不适合db。现在我想更改我的代码以使用MS Access DB，但我无法理解如何做到这一点。我绝对不熟悉数据库编码:(

使用excel的旧程序的代码：

    ' Start Excel and get Application object. 
    oXL = New Excel.Application

    ' Set some properties 
    oXL.Visible = False
    oXL.DisplayAlerts = False     

    Dim wkbk As Excel.Workbook = oXL.Workbooks.Add

    'add(worksheet)

    wkbk.Worksheets.Add()

    'open existing work        

    oWB = oXL.Workbooks.Open("C:\database\Productionplan.xlsx", ReadOnly:=False)

    ' Get the active sheet 
    oSheet = DirectCast(oWB.ActiveSheet, Excel.Worksheet)
    oSheet.Name = "Sheet1"

    oSheet.Cells(index, 3).value = po.Text
    oSheet.Cells(index, 4).Value = product.Text
    oSheet.Cells(index, 5).Value = drawings.Text
    oSheet.Cells(index, 6).Value = customer.Text
    oSheet.Cells(index, 7).Value = assemblingdate.Text
    oSheet.Cells(index, 8).Value = deliverydate.Text
    oSheet.Cells(index, 9).Value = voltage.Text
    oSheet.Cells(index, 10).Value = power.Text
    oSheet.Cells(index, 11).Value = serialno.Text
    oSheet.Cells(index, 12).Value = quantity.Text
    oSheet.Cells(index, 13).Value = unit.Text


    ' Save the sheet and close 
    oSheet = Nothing
    oRange = Nothing
    oWB.SaveAs("C:\database\Productionplan.xlsx")
    oWB.Close()
    oWB = Nothing
    oXL.Quit()

是否有类似的简单方法将值写入访问数据库中的特定单元格？谢谢您的帮助。如果有人知道教程网站或其他什么，将会有所帮助。只要我有一些简单的示例代码来访问数据库中的单元格，我就应该能够想出如何将代码转移到访问数据库。

最诚挚的问候 DOM

编辑：添加一些图片 datagrid

application

Answer 1

像这样的东西，其中field1，...将是表格列名，＆＃34; value1＆＃34;，......来自文本框

Dim objRS As Object ' optional
Set objRS = CreateObject("ADODB.Recordset")

objRS.Open "INSERT INTO [table 1] ( [field 1] , [field 2] ) " & _ 
                         " VALUES (""value 1"",""value 2"");", _ 
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"

Set objRS = Nothing ' optional

外部应用程序写入访问DB

1 个答案: