Bonjour,
Vu que j'ai eu pas mal de difficultés à trouver des exemples de requêtes paramétrées en utilisant AdoDbxClient, je mets ma petite contribution ici.
Vous créez un nouveau projet ASP.NET, vous ajoutez la référence Borland.Data.AdoDbxClient et vous ajoutez un Label nommé Label1 à votre page Default.aspx.
Mettez ceci dans votre Page_Load :
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 uses SysUtils; [Code managé du concepteur] procedure TDefault.Page_Load(sender: System.Object; e: System.EventArgs); var TAdoDbxConnection1 : Borland.Data.AdoDbxClientProvider.TAdoDbxConnection; TAdoDbxCommand1 : Borland.Data.AdoDbxClientProvider.TAdoDbxCommand; DBReader1 : System.data.common.DbDataReader; bdparam: DbParameter; begin try TAdoDbxConnection1 := Borland.Data.AdoDbxClientProvider.TAdoDbxConnection.Create; TAdoDbxConnection1.ConnectionString := 'ma chaine de connexion'; TAdoDbxConnection1.Open; TAdoDbxCommand1 := Borland.Data.AdoDbxClientProvider.TAdoDbxCommand.Create; TAdoDbxCommand1.Connection := TAdoDbxConnection1; //NB : vous pouvez faire TAdoDbxConnection1.CreateCommand si vous voulez utiliser un DbCommand au lieu d'un TAdoDbxCommand. TAdoDbxCommand1.CommandText := 'SELECT e.NOM '+ 'FROM EMPLOYES e '+ 'WHERE e.ID = ?'; //ajout d'un paramètre //NB : paramètres nommés ne sont pas encore disponibles bdparam:= TAdoDbxCommand1.CreateParameter; bdparam.DbType:= DbType.Int32; bdparam.Value:= System.Object(1); TAdoDbxCommand1.Parameters.Add(bdparam);//ID //préparation + exécution requête TAdoDbxCommand1.Prepare; DBReader1 := TAdoDbxCommand1.ExecuteReader; //affichage du premier nom trouvé dans Label1 if DBReader1.Read then Label1.Text := DBReader1['NOM'].Tostring else Label1.Text:= 'pas de données'; finally FreeAndNil(bdparam); FreeAndNil(TAdoDbxCommand1); TAdoDbxConnection1.Close; end; end;
Partager