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 47 48
|
Dim Type As String = ""
Dim Champs() As String
Dim OrdreSelection As Integer = 0
'***** suppression de la close FROM et du reste
Champs = Split(Exp_liste_champs_Stk, ",")
'***** Ouverture de la base SQL sélectionnée.
OpenSql(Err, NomServeurSql, Base_EBP)
requete = "SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE Table_Name = 'Item'"
Dim cmdLireItem As New SqlCommand(requete, Connect)
Dim rstLireItem As SqlDataReader
DataGridView1.DataMember = Nothing
DataGridView1.Rows.Clear()
' ***** Lecture des enregitrements
rstLireItem = cmdLireItem.ExecuteReader()
cmdLireItem.Dispose()
While rstLireItem.Read()
'*****
Zone = rstLireItem.Item("COLUMN_NAME") & ""
Type = rstLireItem.Item("data_type") & ""
OrdreSelection = 0
For i = 0 To UBound(Champs)
If Champs(i) = Zone Then
OrdreSelection = i + 1
End If
Next
DataGridView1.Rows.Add(OrdreSelection, Zone, Type)
End While
rstLireItem.Close()
rstLireItem = Nothing
DataGridView1.Refresh()
'*****
CloseSql(FLGErreur) |
Partager