[VB6] Ricerca in base a un campo in Access

[alka]

Originariamente inviato da Jeremy75
Su una delle due guide che stai seguendo c'è un esempio pratico che ti guida alla costruzione di un'applicazione che funge da agenda ... ti consiglio di seguirla passo passo(ci sono anche i codici che puoi scaricare) per prendere confidenza con i meccanismi di gestione del database ....

...e la famosa Open del RecordSet è ovviamente utilizzata nell'esempio.

[gibra]

Originariamente inviato da Jeremy75
Su una delle due guide che stai seguendo c'è un esempio pratico che ti guida alla costruzione di un'applicazione che funge da agenda ... ti consiglio di seguirla passo passo(ci sono anche i codici che puoi scaricare) per prendere confidenza con i meccanismi di gestione del database ....

Io, al contrario, direi di lasciarla proprio perdere quella guida.
Perdere (letteralmente) tempo per studiare DAO e Data Control mi sembra a dir poco anacronistico (va bene che se vogliamo proprio dirla tutta anche VB6 lo è...)

Almeno almeno, come minimo, usare ADO (ma SENZA usare l'AdoDataControl!).
In questo caso mi sembra indubbiamente più valida l'altra guida (dopo una rapida occhiata).
Oltretutto, nel caso di un eventuale passaggio futuro a dotNET, ADO si avvicina di più ad ADO.NET (come concetti) che con DAO, in cui devi ricominciare da capo.

Sempre che tu non abbia l'esigenza specifica di usare DAO.

Quando ci si affida al WEB c'è sempre il rischio di trovare esempi su tecnologie vecchie e sorpassate.
Se vuoi imparare sul serio, acquisto un buon libro...

Naturalmente... IMVHO

[luigi1993]

Allora seguendo "gibra"...ho scritto questo codice:

Private Sub Cerca_Click()

Set Connessione = New ADODB.Connection
Set RS = New ADODB.Recordset


Connessione.Open str
RS.Open "SELECT Matricola FROM Tabella1", Connessione, 1

End Sub

Imposto la Connection per la gestione della connessione e Recordset per la gestione fisica dei dati. Dopo apro il database e in particolare mi posizione nel campo "Matricola" della "Tabella1". Fino a qui va bene?


Grazie!

[luigi1993]

Allora sono riuscito a capire se all'interno del database Access sono presenti dei dati...ecco il codice:

Private Sub Cerca_Click()
Set Connessione = New ADODB.Connection
Set RS = New ADODB.Recordset
Connessione.Open str
RS.Open "SELECT Matricola FROM Table1", Connessione, 1

If RS.EOF Then
MsgBox ("Dati non presenti")

ElseIf RS.EOF = False Then
MsgBox ("Dati presenti")

RS.MoveNext
End If
RS.Close
Connessione.Close
End Sub

Giusto questo codice?
Poi come devo fare per capire se all'interno c'è quella matricola che viene inserita in una textbox?

[gibra]

SELECT <campo/i> FROM <tabella> WHERE <condizione>

[luigi1993]

Private Sub Cerca_Click()
On Error Resume Next
Dim mat As String

mat = Form1.Text1.Text
Set Connessione = New ADODB.Connection
Set RS = New ADODB.Recordset
Connessione.Open str
RS.Open "SELECT Matricola FROM Table1 WHERE mat='1234567'", Connessione, 1

If RS.EOF Then
MsgBox ("Matricola non presente")

ElseIf RS.EOF = False Then
MsgBox ("Matricola presente")

RS.MoveNext
End If
RS.Close
Connessione.Close
End Sub

Scrivendo così mi viene visualizzato sempre il messaggio:

MsgBox ("Matricola non presente")

Eppure la matricola è presente...xò c'è anche il fatto che come ho scritto io trovo una determinata matricola, ma io vorrei che fosse generale...io ho scritto:

WHERE mat='1234567'

Sorry! Grazie!

[alka]

Originariamente inviato da luigi1993

SELECT Matricola FROM Table1 WHERE mat='1234567'

Scusa, ma quanti campi "matricola" ci sono nella tua tabella?
Nella query ce ne sono almeno due: Matricola e mat.

Originariamente inviato da luigi1993
Eppure la matricola è presente...xò c'è anche il fatto che come ho scritto io trovo una determinata matricola, ma io vorrei che fosse generale...io ho scritto:
WHERE mat='1234567'

Concatena il contenuto della TextBox che contiene la matricola alla query.

Questo è l'ABC del linguaggio: non è possibile iniziare a programmare senza conoscere i principi fondamentali, i tipi di dati, le condizioni e i cicli.

[luigi1993]

Il campo "Matricola" è solo uno nel database Access. La condizione:

WHERE mat='1234567'

Scrivo questa cosa per vedere se il contenuto(1234567) della Text1 della Form1 è presente nel database. Diciamo ke è qui che non riesco a capire come fare in modo se quello che scrivo nella Text1 è presente nel database.

mat = Form1.Text1.Text

Così imposto alla variabile "mat" il contenuto della Text1.

[alka]

Originariamente inviato da luigi1993
Il campo "Matricola" è solo uno nel database Access.

Il tuo comando SQL è espresso così:

SELECT Matricola FROM Table1 WHERE mat='1234567'

Quel nome Matricola cosa rappresenta?

Originariamente inviato da luigi1993
Diciamo ke è qui che non riesco a capire come fare in modo se quello che scrivo nella Text1 è presente nel database.

Ripeto: concatenare una stringa è un'operazione banale che si dovrebbe apprendere ancora prima di iniziare a sviluppare un programma di complessità base.

Prova così:

RS.Open "SELECT Matricola FROM Table1 WHERE mat='" & Form1.Text1.Text & "'", Connessione, 1

Ma poi entrano in gioco altri problemi, quali SQL Injection, il preferibile uso dei parametri e altre problematiche.

[luigi1993]

Se noti prima io associavo ad una variabile la Text1...ecco:

Dim mat As String
mat = Form1.Text1.Text

Poi dopo scrivevo:

RS.Open "SELECT Matricola FROM Table1 WHERE mat='1234567'", Connessione, 1

In questo modo non funziona, ma se scrivo pure così:

RS.Open "SELECT Matricola FROM Table1 WHERE mat='" & Form1.Text1.Text & "'", Connessione, 1

Il messaggio che visualizzo se inserisco nella Text1 "1234567" è sempre: "Matricola non presente", cosa sbagliata visto che nel database è presente; quindi non funziona neanke in questo caso. Di sicuro sono io che sbaglio in qualcosa!



Ps.
Nel database Access i campi sono:

1)ID
2)Matricola
3)Password