Question

我使用VB.net 2008做简单的项目来链接MS Access 2007.我有两个文本框，它是ID和Fullname的数据。

txtID：ID和txtFullname：Fullname和Button1：Search

在MS Access中我的ID数据：1,2＆amp; 3 和我的全名数据：John，Peter＆amp;麦克

我现在面临的问题只有在我输入数据时才会出现问题。在txtID中，输出显示在txtFullname中。但是当我输入＆＃39; 2＆＃39;在txtID中，输出不会出现在txtFullname中。

我只能拨打ID 1。 BUt另一个ID不能

请帮助我。

这是我的代码：

Imports System.Data.OleDb

Public Class Form1

Dim con As New OleDbConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\sample.accdb"
    con.Open()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim SQL As String = "SELECT * FROM phonebookTable WHERE ID= ?"

    If con.State = ConnectionState.Closed Then
        con.Open()
    End If

    Using cmd As New OleDbCommand(SQL, con)
        cmd.Parameters.AddWithValue("@p1", Convert.ToInt32(txtID.Text))

        Dim rdr As OleDbDataReader = cmd.ExecuteReader
        If rdr.HasRows Then
            rdr.Read()
            ' use the actual DB column name
            txtFullname.Text = rdr.Item("Fullname").ToString
        Else
            txtFullname.Text = "No records"
        End If
    End Using
End Sub

结束班

Answer 1

 da = New OleDbDataAdapter("SELECT * FROM phonebookTable where ID = '" & txtID.text & "'", con)

使用VB.net搜索数据库MS Access，仅限2个文本框

1 个答案: