sanaa2200
Messages postés16Date d'inscriptionlundi 27 juillet 2009StatutMembreDernière intervention25 août 2009
-
25 août 2009 à 13:37
Bonjour,
mon problème c'est ke j'ai essaye de chercher dans ma base de donnes Access mais sans succès a chaque fois je compile un message s'affiche disant que:
m.num_pf=p.num_pf AND s.num_de_site=p.num_de_site AND s.num_de_site LIKE '%1%' " AND m.num_pf like '%1%' "AND m.num_mc like '%1%' "'.????
voila le code utilisé
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class Form3
Inherits System.Windows.Forms.Form
Private Sub ButtonRecherche(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bd As New ADODB.Connection
If (Num_de_siteTextBox.Text = "" Or Num_pfTextBox.Text = "" Or Num_mcTextBox.Text = "") Then
MsgBox("Vous devez renseigner le champ 'Num de site , num de plateforme , num de machine' !", vbInformation + vbOKOnly)
Else
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\Users\admin\Desktop\nsn1\nsn.mdb")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT marche,p.num_pf,s.num_de_site,nom_site,nom_pf,m.num_mc,libelle , marche FROM machine m,site s, plateforme p WHERE m.num_pf=p.num_pf AND s.num_de_site=p.num_de_site AND s.num_de_site LIKE '%" & Num_de_siteTextBox.Text & "%' "" AND m.num_pf like '%" & Num_mcTextBox.Text & "%' ""AND m.num_mc like '%" & Num_mcTextBox.Text & "%' """
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()