[VB.NET] Collegarsi ad un database tramite ODBC

[sndaniele]

Ciao a tutti

E' possibile da VB 2005 express collegarsi a un database tramite ODBC ??

Se SI avrei bisogno di qualche suggerimento per iniziare.


Grazie

[M@LKAV]

certo che si puo...
allora per prima cosa ti consiglio questo sito

http://www.connectionstrings.com/ dove puoi trovare tutte le connection string per ogni tipo di origine dati..


ti posto il codice dell'esempio
devi creare un form con sopra un button e un datagridView

%CODE
Imports System.Data.Odbc
Imports System.Data
''Gli imports si riferiscono alle librerie di oggett che sfruttano il driver odbc
'' x sqlserver Imports.system.data.sqlclient

Public Class dsConn

''Istanzio gli oggetti che mi servono per connettermi al Db e per manipolarlo


Dim dbConn As New OdbcConnection("DSN=NomeDNS;Uid=USERNAMEPwd=PASSWO RD;")
Dim dbComm As New OdbcCommand
Dim dbAdapter As OdbcDataAdapter
Dim ds As DataSet

''Load del Form
Private Sub dsConn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
''Connessione col db
'' Il try mi server per non far bloccare l'applicazione con errori
Try
dbConn.Open()
dbComm.Connection = dbConn
Catch ex As Exception
MsgBox("Impossibile stabilire la connessione con il DATABASE", MsgBoxStyle.Information)
End Try
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Esempio di Utilizzo della connessione
'Vista in una GridView di una tabella

dbAdapter = New OdbcDataAdapter("SELECT * FROM NOMETABELLA", dbConn)
Try
ds = New DataSet
dbAdapter.Fill(ds, "NOMETABELLA")
DataGridView1.DataSource = ds.Tables("NOMETABELLA")

Catch ex As Exception
MsgBox("errore")
End Try

End Sub
End Class
%