IDとパスワードを入力し、オラクルのDBにあるIDとパスワードだったら次の画面を開くというプログラムを作りたいです。
オラクルへの接続がうまく行ってないようで画面が固まってしまいます。
プログラムの不具合を教えていただけないでしょうか?
よろしくお願いします。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As New OleDb.OleDbConnection()
Dim cmd As New OleDb.OleDbCommand()
Dim rs As OleDb.OleDbDataReader
cn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=*;User ID=*;Password=*;"
cn.Open() '←ここで、エラーになります。
cmd = cn.CreateCommand()
cmd.CommandText = "Select ID from abc"
rs = cmd.ExecuteReader()
While rs.Read()
If TextBox1.Text = cmd.CommandText Then
MessageBox.Show("パスワードを受付けました。")
Dim frm2 As New Form2
frm2.Show()
TextBox1.Clear()
TextBox2.Clear()
Else
MessageBox.Show("パスワードが違います。")
TextBox1.Text = ""
TextBox1.Focus()
TextBox1.Clear()
TextBox2.Clear()
End if
End While
cn.Close()
rs.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
お礼
Oracleclient10gをインストールし直したら動きました。 ありがとうございます。