Bonjour
Comment passer le nom de la table en paramètre ?
Merci
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 Public Sub Getlist(ByVal tablename As String) Dim command As New OleDbCommand Dim recordset As OleDbDataReader recordset = Nothing command.Connection = Connection command.CommandText = "SELECT field1 FROM dic2 ;" ' dic2 est le nom de la table et j'essaye à la place de dic2 de passer tablename 'j'ai tenté ainsi command.CommandText = "SELECT palabra FROM [table?] ;" command.Parameters.Add("table?", OleDbType.VarChar).Value = tablename ' une erreur ne trouve pas la table recordset = command.ExecuteReader() While recordset.Read listout.Add(recordset.GetValue(0).ToString) End While End Sub
Partager