[VB] Errore di compilazione

[Francesco_76]

Ciao a tutti

Qualcuno sa dirmi perchè ricevo
Errore di compilazione - Numero errato di argomenti o assegnazione di propietà non valida

Il codice è questo:

Private Sub Command_Click()
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset

sqlstring = "select * from [Anagrafico Incarico] where Azienda like '*" & Replace(Text1.Text, "'", "''") & "*'"  'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
Set Db = OpenDatabase("C:\Test in VB\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs
If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
List1.AddItem (Data1.Recordset.Fields("Azienda"))
Label2 = (Data1.Recordset.Fields("id"))
Data1.Recordset.MoveNext
Loop
Dim I As Integer
        For I = 1 To Data1.Recordset.RecordCount
            Label2.Caption = Label2.Caption & "- Nome: " & Data1!Nome & " Cognome: " & Data1Cognome & vbCrLf
            'Si sposta nel record successivo.
        Next I
Else
MsgBox "Nessun record"
End If

End Sub

VB mi evidenzia Data1


Grazie mille

[IKON]

Invece di questo:
Set Db = OpenDatabase("C:\Test in VB\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs

Scrivi questo:

Data1.databasename = "C:\Test in VB\database.mdb"
Data1.recordsource = sqlstring
Data1.refresh

PS. Data1 è un DAO giusto?

[maleresidente]

cosi dovrebbe funzionare:

Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset
Dim I As Integer
With Data1
.Database = "C:\Test in VB\database.mdb"
.RecordSource = "select * from [Anagrafico Incarico] where Azienda like '*" & Replace(Text1.Text, "'", "''") & "*'" 'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
.Refresh
If Not .Recordset.EOF Then
Do While Not .Recordset.EOF
List1.AddItem (.Recordset.Fields("Azienda"))
Label2 = (.Recordset.Fields("id"))
.Recordset.MoveNext
Loop
For I = 1 To .Recordset.RecordCount
Label2.Caption = Label2.Caption & "- Nome: " & .Recordset.Fields("Nome") & " Cognome: " & .Recordset.Fields(" Cognome") & vbCrLf
'Si sposta nel record successivo.
Next I
Else
MsgBox "Nessun record"
End If
End With
End Sub

ciao.

[Francesco_76]

Ricevo errore di compilazione

"utilizzo non valido di property"

e mi evidenzia ".Database ="

[supersaibal]Originariamente inviato da maleresidente
cosi dovrebbe funzionare:

Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset
Dim I As Integer
With Data1
.Database = "C:\Test in VB\database.mdb"
.RecordSource = "select * from [Anagrafico Incarico] where Azienda like '*" & Replace(Text1.Text, "'", "''") & "*'" 'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
.Refresh
If Not .Recordset.EOF Then
Do While Not .Recordset.EOF
List1.AddItem (.Recordset.Fields("Azienda"))
Label2 = (.Recordset.Fields("id"))
.Recordset.MoveNext
Loop
For I = 1 To .Recordset.RecordCount
Label2.Caption = Label2.Caption & "- Nome: " & .Recordset.Fields("Nome") & " Cognome: " & .Recordset.Fields(" Cognome") & vbCrLf
'Si sposta nel record successivo.
Next I
Else
MsgBox "Nessun record"
End If
End With
End Sub

ciao. [/supersaibal]

[steno12]

sostiuscila con questa:

.Database = "C:\Testin~1\database.mdb"








link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2...78%2e%61%73%70
ProjectManager (area dei programmatori per lo sviluppo in comune di progetti)
http://%77%77%77%2e%74%77%6f%72%6b%2...ftp_online.asp
Crea il tuo spazio web gratis
http://%77%77%77%2e%74%77%6f%72%6b%2...mbri/index.asp
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[Francesco_76]

errore

Private Sub Command_Click()
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset
Dim I As Integer
With Data1
.Database = "C:\Testin~1\database.mdb"
.RecordSource = "select * from [Anagrafico Incarico] where Azienda like '*" & Replace(Text1.Text, "'", "''") & "*'" 'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
.Refresh
If Not .Recordset.EOF Then
Do While Not .Recordset.EOF
List1.AddItem (.Recordset.Fields("Azienda"))
Label2 = (.Recordset.Fields("id"))
.Recordset.MoveNext
Loop
For I = 1 To .Recordset.RecordCount
Label2.Caption = Label2.Caption & "- Nome: " & .Recordset.Fields("Nome") & " Cognome: " & .Recordset.Fields(" Cognome") & vbCrLf
'Si sposta nel record successivo.
Next I
Else
MsgBox "Nessun record"
End If
End With
End Sub

[steno12]

.db = "C:\Testin~1\database.mdb"

[Francesco_76]

Adesso mi da "impossibile trovare il metodo o il membro dei dati"

e mi evidenzia

.Db =

[steno12]

mi devi proprio far lavorare heeeeee!!

okay


Dim database As Object
Set Db = MyObject
.Database = "C:\Testin~1\database.mdb"


ciao amico a presto quì

hai dimenticato di creare l'ggetto..............


link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2...78%2e%61%73%70
ProjectManager (area dei programmatori per lo sviluppo in comune di progetti)
http://%77%77%77%2e%74%77%6f%72%6b%2...ftp_online.asp
Crea il tuo spazio web gratis
http://%77%77%77%2e%74%77%6f%72%6b%2...mbri/index.asp
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[Francesco_76]

grazie, ma non riesco, non è che ti voglio far lavorare e che sono un pò incapace
(sto imparando VB)

mi da ancora errore guarda:

Private Sub Command_Click()
Dim sqlstring As String
Dim Db As database
Dim Rs As Recordset
Dim I As Integer
Dim database As Object
Set Db = MyObject
With Data1
.database = "C:\Testin~1\database.mdb"
.RecordSource = "select * from [Anagrafico Incarico] where Azienda like '*" & Replace(Text1.Text, "'", "''") & "*'" 'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
.Refresh
If Not .Recordset.EOF Then
Do While Not .Recordset.EOF
List1.AddItem (.Recordset.Fields("Azienda"))
Label2 = (.Recordset.Fields("id"))
.Recordset.MoveNext
Loop
For I = 1 To .Recordset.RecordCount
Label2.Caption = Label2.Caption & "- Nome: " & .Recordset.Fields("Nome") & " Cognome: " & .Recordset.Fields(" Cognome") & vbCrLf
'Si sposta nel record successivo.
Next I
Else
MsgBox "Nessun record"
End If
End With
End Sub

:quote: