exception OLEDB n est pas géré
Bonjour je suis débutante j essaye de connecter une base de donnée DB2 a une application vb.net mais a chaque fois le même problème :
une exception OLEDB n est pas géré : le serveur n existe pas s 'est produite a la ligne 17
par contre je suis sur du nom du serveur et mes tables tables de la bases sont présents sur le visual , s il vous plait aide moi ..voila mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Imports System
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As OleDbConnection = New OleDbConnection("Provider=SQLOLEDB;Data Source=PANTH02;" & _
"User ID=db2admin;Password=db2admin;" & _
"server=pantheraSRV.;")
cn.Open()
Dim dr As OleDbDataReader
Dim cmd As OleDbCommand = New OleDbCommand("SELECT ID_UTTENTI,PASSWORD from THIP.UTTENTE where ID_UTTENTI='" & Me.TextBox1.Text & "' And PASSWORD = '" & Me.TextBox2.Text & "'", cn)
Try
dr = cmd.ExecuteReader()
If Me.TextBox1 = dr.Item("ID_UTTENTE") & Me.TextBox2 = dr.Item("PASSWORD") Then Form2.Show() Else
MessageBox.Show("message e Erreur", "Erreur")
dr.Close()
Catch ex As Exception
Console.WriteLine(ex.Message.ToString())
Finally
cn.Close()
End Try
End Sub
End Class |
