Adesso funziona ho aggiunto questa cosa txtAlias.Visible = True
lblAlias.Visible = True nella prima parte così l'Alias compare solo
se nome e cognome sono uguali.
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
Dim aRes As Boolean
aRes = controlladati(iCognome, iNome, dbConn)
If aRes = True And txtAlias = "" Then
Beep
MsgBox "Inserisci l'ALIAS", vbInformation
txtAlias.Visible = True
lblAlias.Visible = True
Per la domanda che mi hai fatto:nel form load carico la combo
prendendo i dati dal database.
Private Sub Form_Load()
txtCognome.TabIndex = 1
Dim dbRec As New ADODB.Recordset
Dim dbConn As New ADODB.Connection
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "Ruolo", dbConn, adOpenForwardOnly, adLockOptimistic, -1
While Not dbRec.EOF
cmbRuolo.AddItem dbRec!Ruolo
dbRec.MoveNext
Wend
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbRec = Nothing
End Sub
----------------------------------------------------------------------
Con questo codice qui cosa faccio?
Io a video ho i campi nome,cognome,alias (sono 3 text)
ruolo è una combo(caricata come ti ho già detto prima).
Mentre per nome,cognome,alias vado a registrare nel db il valore delle
text:
iNome=txtNome.text e così via
per la combo con i ruolo NON VADO A REGISTRARE QUESTO:
iRuolo=cmbRuolo.txt
MA L'ID_Ruolo e lo faccio in questo modo:
dbRec.Open "Ruolo", dbConn, adOpenForwardOnly, adLockOptimistic, -1
While Not dbRec.EOF
Ruolo = dbRec("Ruolo")
'cmbRuolo.AddItem ruolo
Dim collRuolo As New Collection
collRuolo.Add Int(dbRec("ID_Ruolo")), Ruolo
dbRec.MoveNext
Wend
aRuolo = collRuolo(cmbRuolo.Text)
strSQL = "INSERT Into Staff (Nome,Cognome,Alias,ID_Ruolo) VALUES ('" & iNome & "','" & iCognome & "','" & iAlias & "','" & aRuolo & "')"
Rispondi quotando
