Cercare un campo tramite textbox

3 Risposte

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8704

  Re: Cercare un campo tramite textbox

  18 giu 2016, 20:42

  Non c'è alcuna FORUMLA... non siamo maghi nè matematici... si chiama SINTASSI.
  
  Puoi fare una cosa più raffinata... ovvero riempire una ComboBox con l'elenco Campi... e consentire all'utente di scegliere il Campo.
  Devi fare attenzione a come formatti la stringa in quanto se il campo è Testo/Numerico/Data sai bene che le cose cambiano...!
  
  A tal proposito ti propongo questo mio test:
  **
  
  In ogni modo non usare inutilmente parentesi TONDE..., non usare la proprietà TEXT ma VALUE...

  
  str = "select * from martello where " & Me!txtNomeCampo.Value & " = '" & CodiceText.Value & "'"

• G

  gaema_it

  Pochi posts

  Iscritto da

  giu, 2016

  Messaggi:

  2

  Re: Cercare un campo tramite textbox

  20 giu 2016, 17:14

  Ho inserito in una combobox i campi della tabella tramite items.
  
  questo è quello che ho fatto:
  
  Imports System.Data.OleDb
  
  Public Class Form1
  Dim provider As String
  Dim datafile As String
  Dim connstring As String
  Public myconnection As OleDbConnection = New OleDbConnection
  Public dr As OleDbDataReader
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Me.MartelloTableAdapter.Fill(Me.TabelleDataSet.Martello)
  provider = " Provider= Microsoft.ace.oledb.12.0;data source ="
  datafile = " C:\Progetti\pentathlon lanci\pentathlon lanci\Tabelle.mdb "
  connstring = provider & datafile
  myconnection.ConnectionString = connstring
  End Sub
  
  Private Sub FindButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindButton.Click
  myconnection.Open()
  DescrizioneText.Clear()
  
  Dim str As String
  
  str = "select * from martello where (combobox1.text ='" & CodiceText.Text & "')"
  Dim cmd As OleDbCommand = New OleDbCommand(str, myconnection)
  dr = cmd.ExecuteReader
  While dr.Read()
  DescrizioneText.Text = dr("Punteggio").ToString
  End While
  myconnection.Close()
  End Sub
  
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  
  End Sub
  End Class
• O

  oregon

  Super Famoso

  Iscritto da

  nov, 2011

  Messaggi:

  21566

  Re: Cercare un campo tramite textbox

  20 giu 2016, 17:22

  Ma quindi il problema è relativo a VB.NET non ad Access ... mi sa che hai sbagliato sezione.
  
  Comunque questa
  
  str = "select * from martello where (combobox1.text ='" & CodiceText.Text & "')"
  
  è ovviamente sbagliata. Come per CodiceText.Text anche ComboBox1.Text non deve stare all'interno delle " "