Questo topic e' stato chiuso dal moderatore.
24/05/08 18:25
crislovestefy4e
Salve,dato che nella form ho queste cose:
txtCognome = "Caspitini"
txtNumero = "110"
txtTipo = "Singola"
nel database di agosto:
DalGiorno|AlGiorno|NumeroStanza|NumGiorni|Nome|Cognome
23 26 110 4 x x
FUNZIONE CHE ELIMINA PRENOTAZIONE DEL CLIENTE DAL MESE AL MESE NELLA TABELLA AGOSTO
Mi dà quel fottutissimo errore e il progetto lo dovrei aver consegnato entro domani e sto impazzendo!!! Se no mio padre non mi farebbe studiare più! per cui siete pregati di aiutarmi su questo maledetto e fottuto errore.
Messaggio per Billy Gates: Vai a quel paese e impiccati! W linux!
Grazie per l'aiuto futuro!!!!
txtCognome = "Caspitini"
txtNumero = "110"
txtTipo = "Singola"
nel database di agosto:
DalGiorno|AlGiorno|NumeroStanza|NumGiorni|Nome|Cognome
23 26 110 4 x x
FUNZIONE CHE ELIMINA PRENOTAZIONE DEL CLIENTE DAL MESE AL MESE NELLA TABELLA AGOSTO
Private Sub libera_nei_mesi() 'LAVORI IN CORSO DA ULTIMARE Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim selection As String con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hotel.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False" selection = txtCognome.Text sqlstr = "select * from Agosto where Cognome = '" & selection & "'" rs.Open sqlstr, con, adOpenDynamic, adLockOptimistic rs.Delete adAffectCurrent End Sub
Mi dà quel fottutissimo errore e il progetto lo dovrei aver consegnato entro domani e sto impazzendo!!! Se no mio padre non mi farebbe studiare più! per cui siete pregati di aiutarmi su questo maledetto e fottuto errore.
Messaggio per Billy Gates: Vai a quel paese e impiccati! W linux!
Grazie per l'aiuto futuro!!!!
aaa