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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Imports System.Data
Imports System.Data.SqlClient
Public Class ActualiserFormMat
Dim cn As New SqlConnection("Data Source=RUFLI-PC;Initial Catalog=SCHOOL;Integrated Security=True")
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
Private Sub ActualiserFormMat_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
remplir_cmb()
End Sub
Sub remplir_cmb()
cn.Open()
cmd.CommandText = "SELECT ID_MAT FROM MATIERE"
cmd.Connection = cn
dr = cmd.ExecuteReader
While dr.Read
cmb_recherche.Items.Add(dr(0))
End While
cn.Close()
End Sub
Private Sub BT_recherche_Click(sender As System.Object, e As System.EventArgs) Handles BT_recherche.Click
Try
cn.Open()
cmd.CommandText = "SELECT * FROM MATIERE WHERE ID_MAT=" & cmb_recherche.Text & ""
cmd.Connection = cn
dr = cmd.ExecuteReader
dr.Read()
txb_cod.Text = dr(0)
Txb_lib.Text = dr(1)
Val((txt_coef.Text) = dr(2))
dr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
cn.Close()
End Sub
End Class |
Partager