Access数据库连接问题,麻烦vb高手帮忙解决
青尘 2012-11-24 05:44:38 Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
Dim connStr, selectName, selectCmd As String
selectName = InputBox("请输入姓名", "查询成绩")
selectCmd = "SELECT * FROM SCORE WHRER name='" & selectName & "'"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SCORE.mdb"
Dim conn As OleDbConnection, cmd As OleDbCommand, myReader As OleDbDataReader
conn = New OleDbConnection(connStr)
cmd = New OleDbCommand(selectCmd, conn)
conn.Open()
myReader = cmd.ExecuteReader() ‘这有问题!
If myReader.Read() Then
txtShow.Text = "学号" & vbTab & myReader.Item("id_num") & vbNewLine
txtShow.Text &= "姓名" & vbTab & myReader.Item("name") & vbNewLine
txtShow.Text &= "语文" & vbTab & myReader.Item("chi") & vbNewLine
txtShow.Text &= "数学" & vbTab & myReader.Item("math") & vbNewLine
txtShow.Text &= "英语" & vbTab & myReader.Item("eng")
Else
txtShow.Text = "找不到这个学生的成绩!"
End If
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
End
End Sub
End Class
ps:我用的是Visual Basic 2010学习版