PDA

Visualizza la versione completa : Connessione tabelle sql server con VB


xit
04-06-2002, 12:15
Private Sub cmdInvia_Click()
If txtCognome = "" Or txtNome = "" Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
Else

Io ho questo codice dopo l'else dovrei entrare nel mio DB
sql server ho una connessione dsn
Che codice devo inserire?
Devo entrare nel database vedere se nome e cognome ci sono già
se non ci sono inserirli se ci sono inserire un MSGBox: nomi già
presenti
Grazie

steno12
04-06-2002, 13:08
Private Sub cmdInvia_Click()
If txtCognome = "" Or txtNome = "" Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
Else
'assegni a due variabili il contenuto di txtCognome e txtNome
iCognome=txtCognome
iNome=txtNome
'ora apri ed entri nel database, e scorri i record
'ciclo while db
'se i campi della tabella Nome AND Cognome sono uguali a iCognome
'e iNome
if CampoNome=iNome AND CampoCognome=iCognome then
beep
msgbox("Noem e cognome già presenti")
'chiudi la connessione al DB
exit sub 'esci dalla routine
end if
move prossimo record
wend
'sei uscito dal ciclo, il che significa la non presenza
'di iNome e iCognome
'se nome cognome non sono presenti rispettivamente nei campi del db
'fai update di iNome e iCognome sui campi Nome e Cognome della tabella
'chiudi la connessione al DB
end if


link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/public/twforum/default.asp

xit
04-06-2002, 14:58
Problema quale è la connessione se il database è sql server
io ho già la dsn però cosa devo aprire?

ans
04-06-2002, 15:22
Provider=SQLOLEDB;Data Source=IP del Server;Initial Catalog=nome db;User Id=nome utente;Password=password

xit
04-06-2002, 16:02
Mi potete postare l'intero codice di cui ho bisogno?

ans
04-06-2002, 16:12
Potresti fare una ricerca nell'help? E tutto scritto e spiegato. A cosa serve fare copia ed incolla?

Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Set Cnn = New Connection
Set Rst = New Recordset

Cnn.Open "Provider=............."
Set Rst = Cnn.Execute("Select ........... From nomeTabella ...")

Do While Not Rst.Eof
.....
Rst.MoveNext
Loop

Set Rst = Nothing
Set Cnn = Nothing

razorinc
04-06-2002, 16:46
E per collegarsi ad un database Mysql cosa bisogna fare???

Grazie :D:D:D

ans
04-06-2002, 16:51
ODBC.

razorinc
04-06-2002, 16:56
Anzi...che stringa devo mettere per connettermi al database, precisamente?? Sul server 192.0.1.1 e con username="pippo" e password="" ???

xit
04-06-2002, 17:08
E' CORRETTO

Private Sub cmdInvia_Click()
If txtCognome = "" Or txtNome = "" Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
Else
DimiCognome , iNome
iCognome = txtCognome
iNome = txtNome
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Set Cnn = New Connection
Set Rst = New Recordset
Cnn.Open "Provider=............."
Set Rst = Cnn.Execute("Select ........... From nomeTabella ...")
Do While Not Rst.EOF
If CampoNome = iNome And CampoCognome = iCognome Then
Beep
MsgBox ("Noem e cognome già presenti")
Set Rst = Nothing
Set Cnn = Nothing
Exit Sub
End If
Rst.MoveNext
Loop
End If

Loading