Newsgroup: it.comp.lang.visual-basic
Titolo: Tipo di Connessione ADO

Ciao a tutti,
e da poco che sono passato dalla versione 5 a quella 6 e avrei un paio di
domande sulle Connessioni ADO
ho già guardato sul sito comune, ci sono degli esempi, ma nn quelli che
cerco io ..........
Mi potete fare qualche esempio di un DataGrid con AdoDc che si connettono a
un DB Access via codice????
Grazie

 ha scritto nel messaggio
news:a6l0v9$n2o$1...@newsreader.mailgate.org...

PER LA SERIE LA PAPPA SCODELLATA
io reputo che tu non abbia molto "cercato"...non c'era nulla sul sito
comune???ma se c'è anche un mini corso!......e siccome ti dobbiamo
"stimolare" ti dico subito di buttar via l'ado data control
e di connettere i DB "a mano" ossia usando gli oggetti che ti mette a
disposizione la libreria ADO (qualsiasi versione dalla 2.1 in poi!)
Inizio:
Progetto->Riferimenti-> Scegli Microsoft ActiveX Data Object
Controlli: Scegli la datagrid(quella che ha scritto OLEDB!)  chiamala DG1
Questo è il codice....apre solo in lettura!
Option Explicit
Dim cn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Form_Load()
Dim strConn As String ' Stringa di connessione
Dim PathDb As String 'Path completo Database
Dim Tsql As String 'Stringa SQL per selezionare i Record(s)
PathDb = App.Path & "\Nwind.mdb" 'Usato il solito NorthWind come esempio
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & PathDb & ";"
strConn = strConn & "User Id=admin;"
strConn = strConn & "Password=;"
cn.ConnectionString = strConn
cn.CursorLocation = adUseClient
cn.Open
Tsql = "Select * From Orders WHERE "
Tsql = Tsql & "(shippeddate>(#01/21/96#)) AND (ShipCity='Madrid')"
RS.Open Tsql, cn, adOpenStatic, adLockReadOnly
Set DG1.DataSource = RS
End Sub
d'ora in poi è solo volonta tua!...ogni singola istruzione o parametro ha le
sue info schiaccaindoci sopra f1...
buon lavoro!
:-)

 CUT
Ti ringrazio, nn è che nn ho cercato sul sito comune, io ho cercato ma ho
trovato solo
esempi di connessioni ADO con minima o inesistente spiegazione/commento del
codice
sicuramente ho cercato male.... ma volevo solo sapere come si usa il DNS
quali sono le
possibili stringhe di connessione (quello che usi in .ConnectionString)
Cmq grazie 1000
Mi riprometto di cercare meglio la prox volta e scusate del disturbo
arrecato ingiustamente.
Ciao
Fabio

 ha scritto nel messaggio
news:a6n2rq$hch$1...@newsreader.mailgate.org...
CUT
ODBC - DSN
oConn.Open "DSN=mySystemDSN;" & _
           "Uid=myUsername;" & _
           "Pwd=myPassword;
ODBC - File DSN
oConn.Open "FILEDSN=c:\somepath\mydb.dsn;" & _
           "Uid=myUsername;" & _
           "Pwd=myPassword;"
Un esempio?
Public Function ConnODBC(NomeDSN As String, Optional UserName As String =
"", Optional Password As String = "") As ADODB.Connection
Dim aCon As New ADODB.Connection
aCon.Open "DSN=" & Trim(NomeDSN) & ";Uid=" & Trim(UserName) & ";Pwd=" &
Trim(Password) & ";"
Set ConnODBC = aCon
End Function
poi c'è anche la possibilità di farsi da codice le connessioni ODBC
io ho rimaneggiato ed adattato questo esempio
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q171146
ti do una dritta va.....ma poi una volta imparato comincia a collaborare col
ng eh?...poi insegnerai tu agli altri newbie...
http://www.able-consulting.com/ADO_Conn.htm
ti basta ?
Bye man!
:-)