bonjour, a l'execution de mon code, j'ai une erreur surlignée verte :
pour info, voici le module qui contien la procedure main, la ou jouvre la connection :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Imports System Imports System.data Imports Microsoft.VisualBasic Imports System.Data.SqlClient Public Class frmpersnav Inherits System.Windows.Forms.Form Public Shared objectconnection Private Sub frmpersnav_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim marequete1 As String = "select * from persnav " Dim objectcommand As New SqlCommand(marequete1, objectconnection) Dim objectreader As SqlDataReader = objectcommand.ExecuteReader() --> la propriété Connection n'a pas été initialisée Do While objectreader.Read() ListBox1.Items.Add(objectreader.GetString(0)) Loop objectreader.Close() objectconnection.Close() End Sub End Class
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Imports System Imports System.data Imports Microsoft.VisualBasic Imports System.Data.SqlClient Public Class module1 Inherits System.windows.forms.Form Public Shared objectconnection As SqlConnection Public Shared Sub main() Dim frmpersnavi As New frmpersnav objectconnection = New SqlConnection objectconnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=goeland;server=C008-PC-5216492" Try objectconnection.Open() Catch ex As SqlException MsgBox(ex.Message) End Try frmpersnavi.ShowDialog() End Sub End Class
Partager