Question

关于将VB数据库中数据赋给一个变量的问题。

我在用vb2005+access2003做一个评教系统，现在想把数据库一个表中用select语句查询到的某字段中的值取出赋给一个变量，应该怎么做，请高手指点，最好给出代码。 这是我连接数据库及查询的代码，请指正。 Imports System.Data.OleDb Public Class EvaAdminLand Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New OleDbConnection() conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='EvaDatabase.mdb'" Dim com As New OleDbCommand() com.Connection = conn com.Parameters.AddWithValue("@IDName", IDName.Text) com.Parameters.AddWithValue("@Password", Password.Text) com.CommandText = "select IDName,Password from Admin where IDName = '@IDName' and Password='@Password'" conn.Open() com.ExecuteNonQuery() ...... End Sub End Class

Answer 1

com.ExecuteReader函数会返回一个DataReader对象，用它可以读取某字段中的值