LinkExchange Member Free Home Pages at GeoCities

1. Come aprire una connessione fornendo un DSN

Prima di tutto è necessario aggiungere al progetto una referenza a Microsoft Remote Data Object 2.0 (menu Project, item References).
Supponiamo di voler stabilire una connessione al DSN MyDSN che utilizza SQL Server.

Private cn As rdoConnection

Private Sub OpenConnection ()
Set cn = New rdoConnection
With cn
.Connect = "DSN=MyDSN;UID=sa;PWD=sa"
.CursorDriver = rdUseNone
.EstablishConnection rdDriverNoPrompt
End With
End Sub


2. Come aprire una connessione senza fornire un DSN

Prima di tutto è necessario aggiungere al progetto una referenza a Microsoft Remote Data Object 2.0 (menu Project, item References).
Supponiamo di voler stabilire una connessione al database MyDB di SQL Server.

Private cn As rdoConnection

Private Sub OpenConnection ()
Set cn = New rdoConnection
With cn
.Connect = "DRIVER={SQL SERVER}; UID=sa; PWD=sa;" & _
"DATABASE=MyDB;SERVER=MySvr"
.CursorDriver = rdUseNone
.EstablishConnection rdDriverNoPrompt
End With
End Sub


3. Come far eseguire una Stored Procedure

Prima di tutto è necessario aggiungere al progetto una referenza a Microsoft Remote Data Object 2.0 (menu Project, item References).
Supponiamo di voler eseguire la stored procedure sp_MyProc così definita:

Create Proc sp_MyProc
@ID int,
@Name Char(20)
AS
INSERT INTO MyTable VALUES (@ID, @Name)

Il codice VB5 è il seguente:

Private cn As rdoConnection
Private sp As rdoQuery

Private Sub ExecuteSp ()
Set cn = New rdoConnection
Set sp = New rdoQuery
With cn
.Connect = "DSN=MyDSN;UID=sa;PWD=sa"
.CursorDriver = rdUseNone
.EstablishConnection rdDriverNoPrompt
End With
With sp
.SQL = "{ call sp_MyProc (?,?) }"
.ActiveConnection = cn
sp(0) = 10
sp(1) = "Rossi"
.Execute rdExecDirect
End With
End Sub




Home Page
This page hosted by Get your own Free Home Page
1