Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    Relazioni tra access e vb

    ciao a tutti,
    ho un piccolo problema a mettere in relazione le tabelle che ho creato in access.
    Le tabelle coi relativi campi sono:

    acquisti(idAcquisto,idFornitore,idProdotto,prezzoa cquisto,quantita,iva,)
    fornitori(idFornitore,ragionesociale,indirizzo,cit ta,telefono)
    prodotto(idProdotto,scorta,descrizione,marca)


    Ho provato a mettere in relazione le suddette tabelle nel seguente modo:

    Private Sub Data2_Reposition()
    Data2.RecordSource = "select * from fornitori where idfornitore = Data1.Recordset.idfornitore "
    End Sub

    Private Sub Data3_Reposition()
    Data3.RecordSource = "select * from prodotto where idprodotto = Data1.Recordset.idprodotto "
    End Sub

    (data1 è collegato con la tabella acquisti, data2 con la tabella fornitori e data3 con la tabella prodotto).

    Come vedete, ho utilizzato sql per creare queste relazioni, ma non riesco a capire dove sbaglio.

    Grazie

  2. #2
    Utente di HTML.it
    Registrato dal
    Oct 2006
    Messaggi
    121
    perchè non 'disegni' una query direttamente in access e ti copy il codice sgl generato?

  3. #3
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472

    Moderazione

    Originariamente inviato da Georges
    Relazioni tra access e vb
    Di quale versione di Visual Basic stiamo parlando?
    Hai letto il Regolamento?

    Indica sempre anche la versione di VB a cui ti riferisci. Suppongo che sia la 6, quindi correggo così; se è errato, avvertimi.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  4. #4

    Re: Relazioni tra access e vb

    Non puoi inserire codice VB dentro le query; il codice corretto è il seguente:
    codice:
    Private Sub Data2_Reposition()
    Data2.RecordSource = "select * from fornitori where idfornitore =  " & LTrim$(CStr(Data1.Recordset.idfornitore))
    End Sub
    
    Private Sub Data3_Reposition()
    Data3.RecordSource = "select * from prodotto where idprodotto =  " & LTrim$(CStr(Data1.Recordset.idprodotto))
    End Sub
    Amaro C++, il gusto pieno dell'undefined behavior.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.