Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    271

    Memorizzare ID di tabella sql (VB)

    Io ho un form con campi: 1)Cognome 2)Nome 3)Ruolo 4)Alias 5)DataInizio
    Quando premo il bottone salva i dati li registro in 2 tabelle

    Questi valori vengono inseriti in 2 tabelle

    strSQL = "INSERT Into Staff (Nome,Cognome,Alias,) VALUES ('" & iNome & "','" & iCognome & "','" & iAlias & "')"

    strSQL1 = "INSERT Into Ruolo(Ruolo,DataInizio) VALUES('" & iRuolo & "', '" & iData & "')"


    Dopo aver fatto la prima query cioè INSERT INTO Staff :
    ID_Staff|Nome|Cognome|Alias avrei bisogno che venisse memorizzato
    l'ID_Staff e venisse poi inserito nella seconda query

    strSQL1 = "INSERT Into Ruolo(Ruolo,DataInizio) VALUES('" & iRuolo & "', '" & iData & "')"
    ID_Ruolo|Ruolo|DataInizio|ID_Staff

    Come posso fare?

  2. #2
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    271
    Mi dà errore qua!!!Non mi registra l' ID e di conseguenza non
    lo posso andare ad inserirlo nella seconda query.


    strSQL = "INSERT Into Staff (Nome,Cognome,Alias) VALUES ('" & iNome & "','" & iCognome & "','" & iAlias & "')"


    DoEvents
    dbConn.Execute strSQL

    dbRec.Open "Staff", dbConn, adOpenForwardOnly, adLockOptimistic, -1
    While Not dbRec.EOF
    Dim collRuolo As New Collection
    Dim Alias
    Alias = dbRec!Alias
    collRuolo.Add Int(dbRec("ID_Med")), Alias
    dbRec.MoveNext
    Wend
    Dim aRuolo
    aRuolo = collRuolo(txtAlias.Text)----->
    DoEvents
    strSQL1 = "INSERT Into Ruolo(Ruolo,DataInizio,aRuolo) VALUES('" & iRuolo & "', '" & iData & "','" & aRuolo & "')"
    dbConn.Execute strSQL1

    MsgBox ("Dati inseriti")
    dbConn.Close
    Set dbConn = Nothing
    End If

  3. #3
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    271
    aRuolo = collRuolo(txtAlias.Text)-----> Qua mi dà errore!!

  4. #4
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    271
    Ho risolto avevo dimenticato di mettere questa riga
    txtAlias.text=Alias

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 © 2024 vBulletin Solutions, Inc. All rights reserved.