Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim olecn1 As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=E:\SQL\MSSQL\Data\学生信息管理数据库_data.mdf;")
Dim olecm1 As New OleDbCommand("select * from Srecord", olecn1)
Dim olead As New OleDbDataAdapter
Dim olerd As OleDbDataReader
Dim i As Integer
olecm1 = New OleDbCommand("select * from Srecord", olecn1)
Dim pd As Boolean = False '定义boolean为后面错误处理使用
olecn1.Open()
olerd = olecm1.ExecuteReader
Do While olerd.Read()
For i = 0 To olerd.FieldCount - 1
If (Trim(TextBox1.Text) = (olerd.Item("学号"))) And (Trim(TextBox2.Text) = (olerd.Item("密码"))) Then
Me.Hide()
Dim b As New Form2
b.StartPosition = FormStartPosition.CenterScreen
b.ShowDialog()
pd = True
' Exit Sub????
Else : MsgBox("口令或密码错误")
End If
Next
Loop
' Dim denglu As New Form
' Me.Hide()
' denglu.Show()
olerd.Close()
olecn1.Close()
End Sub
Dim olecn1 As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=E:\SQL\MSSQL\Data\学生信息管理数据库_data.mdf;")怎么会是不识别的数据库格式呢????不会是因为在win7下吧
4 个解决方案
#1
数据库不要用中文名吧。
或者换成access的数据库.mdb
或者换成access的数据库.mdb
#2
你的mdf是sql 2000下的,还是SQL 2008 SQL 2005等版本的》
#3
#4
microsoft.jet.oledb.4.0改成Microsoft.ACE.OLEDB.12.0试试
#1
数据库不要用中文名吧。
或者换成access的数据库.mdb
或者换成access的数据库.mdb
#2
你的mdf是sql 2000下的,还是SQL 2008 SQL 2005等版本的》
#3
#4
microsoft.jet.oledb.4.0改成Microsoft.ACE.OLEDB.12.0试试