Question

我正在开展一个项目，其中表单将从Access数据库中提取信息。我们有分配到各个商店的技术，而不是列出所有商店和分配技术，我期待有一个技术列表和分配商店。现在，数据库有4个字段。

Gate Tech - 文字字段
到期日期 - 日期字段
门 - 是/否复选框
商店 - 查找＆amp;可以有多个选择的关系字段

我的表单有一个文本框，搜索按钮和一个富文本框。如果有人输入商店号码，它会搜索查询和关系字段，如果该商店被选中，那么它将把技术放在富文本框中。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim text1 As String = TextBox1.Text
    myConnection.Open()

    Dim lstscmd As OleDbCommand = New OleDbCommand("SELECT * FROM Table1 WHERE Stores = @Stores", myConnection)
    lstscmd.Parameters.AddWithValue("@Stores", CInt(text1))

    dr = lstscmd.ExecuteReader
    While dr.Read
        RichTextBox1.AppendText(dr("Gate Tech").ToString + Environment.NewLine)
    End While
    myConnection.Close()
End Sub

While dr.Read我

必须先释放行句柄才能获得新句柄。

我希望在Stores字段中搜索任何选定的商店，并将Gate Tech值返回到富文本框。

对此的任何帮助将不胜感激。

Answer 1

我发现了我出错的地方以及解决问题的最佳方法。

我没有从表格字段中提取数据，而是在访问中创建了一个查询，并指出了我的搜索结果。

{
  "manifest_version": 2,
  "name": "My Extension",
  "short_name": "Extension",
  "version": "1.5.16",
  "description": "Description here",
  "homepage_url": "https://test.com/",
  "icons": {
    "16": "icon16.png",
    "48": "icon48.png",
    "128": "icon128.png"
  },
  "content_scripts": [
    {
      "matches": [
        "https://mail.google.com/*"
      ],
      "js": [
        "injector.js"
      ],
      "css": [
        "style.css"
      ]
    }
  ],
  "web_accessible_resources": [
    "app.js",
    "libs.js"
  ]
}

将Dim lstscmd As OleDbCommand = New OleDbCommand("SELECT * FROM Table1 WHERE Stores = @Stores", myConnection) lstscmd.Parameters.AddWithValue("@Stores", CInt(text1))替换为Table1 (or your table name)，它应该开始提取值。

通过查找＆amp;搜索ms-access数据库关系领域

1 个答案: