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 28 29
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
strSql = "SELECT logo,anneeConstitution,capital,numRC,typologieConsortium,typolopgieEntreprise,adresse,email,siteWeb,nomSA,nomFJ,nomPresident,dateCreation,remarque FROM dbo.consortium " & "WHERE nomConsortium = '" & TextBox1.Text & "' "
cmd = New SqlCommand(strSql, connexion)
cmd.Connection() = connexion
cmd.ExecuteNonQuery()
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
While reader.Read()
PictureBox1.Text = "ici le probleme"
TextBox2.Text = reader.GetInt16(1)
TextBox3.Text = reader.GetInt32(2)
TextBox4.Text = reader.GetInt32(3)
TextBox5.Text = reader.GetString(4)
TextBox6.Text = reader.GetString(5)
TextBox7.Text = reader.GetString(6)
TextBox8.Text = reader.GetString(7)
TextBox9.Text = reader.GetString(8)
TextBox10.Text = reader.GetString(9)
TextBox11.Text = reader.GetString(10)
TextBox12.Text = reader.GetString(11)
TextBox13.Text = reader.GetDateTime(12)
TextBox14.Text = reader.GetString(13)
End While
reader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub |
Partager