Visual Basic

TIPS & TRICKS - DATABASE - CONNESSIONE A DATABASE MICROSOFT SQL

Set conn = New ADODB.Connection
 
 connStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Utente;Password=Password;Initial Catalog=Database;Data Source=Indirizzo IP Server"
 conn.ConnectionString = connStr

 On Error GoTo Errore
 conn.Open
 
sql = "Select * From tabella"
Set rs = conn.Execute(sql)
 
 
Do While Not rs.EOF

MsgBox rs("Nome colonna")

rs.MoveNext
Loop

 
 
 Exit Sub

Errore:
  MsgBox ("Errore: " & Err.Number & " " & Err.Description)