PDA

Visualizza la versione completa : [VB] Errore di compilazione


Francesco_76
31-10-2002, 15:48
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


:ciauz:

IKON
31-10-2002, 17:38
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
31-10-2002, 18:19
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
31-10-2002, 21:19
Ricevo errore di compilazione

"utilizzo non valido di property"

e mi evidenzia ".Database ="

:bh:





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.

steno12
31-10-2002, 23:51
sostiuscila con questa:

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








link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2eit/%69%6ed%65%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%2eit/public/pm/ftp_online.asp
Crea il tuo spazio web gratis
http://%77%77%77%2e%74%77%6f%72%6b%2eit/public/membri/index.asp
software
http://%77%77%77%2e%74%77%6f%72%6b%2eit/programmi/programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2eit/public/twforum/default.asp

Francesco_76
31-10-2002, 23:57
:(


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


:cry:

steno12
01-11-2002, 00:17
.db = "C:\Testin~1\database.mdb"

Francesco_76
01-11-2002, 00:20
Adesso mi da "impossibile trovare il metodo o il membro dei dati"

e mi evidenzia

.Db =

:dh:

steno12
01-11-2002, 00:26
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%2eit/%69%6ed%65%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%2eit/public/pm/ftp_online.asp
Crea il tuo spazio web gratis
http://%77%77%77%2e%74%77%6f%72%6b%2eit/public/membri/index.asp
software
http://%77%77%77%2e%74%77%6f%72%6b%2eit/programmi/programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2eit/public/twforum/default.asp

Francesco_76
01-11-2002, 00:30
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:

Loading