[VB.NET] ado.net + datagrid - da codice

[Stealth]

sto sviluppando la mia prima applicazione con vb.net ed ho il seguente problema:
vorrei collegare da codice, un DB access ad un datagrid; quindi vorrei vedere i dati del db sul datagrid.

sapete aiutarmi?

grazie anticipatamente

[Trinità]

molto semplice

crei una connessione al db (connessione oledb) il riferimento poi va nel web.config

Dim cnx As OleDbConnection = New OleDbConnection(ConfigurationSettings.AppSettings( "conn"))

dim query_sql as string
query_sql="select * form mia_tabella"
dim cmd as new oledbcommand(query_sql, cnx)
cnx.open
datagrid1.datasource=cmd.executereader
datagrid1.databind
cnx.close

dai un occhio qui ci sono molti esempi http://it.gotdotnet.com/quickstart/a...ntrolsref.aspx

[Stealth]

non faccio applicazioni asp.net, ma programmi eseguibili su piattaforma vb.net

mi servirebbe il codice per poter vedere dentro una datagrid una tabella di un database.

[sms]

allora qui ti sapranno aiutare meglio
http://forum.html.it/forum/forumdisplay.php?forumid=56

[pietro09]

non so se si possa aiutare:

Private ds As New DataSet()
'Private TableAlradyAdded As Boolean

Public ReadOnly Property StringaConnessione$()
	Get
		Return "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\DATI\test\test.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
	End Get
End Property

Private Sub griglia_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
	CreateDataSet()
	InitializeBinding()

End Sub

Sub CreateDataSet()
	Dim cn As New OleDbConnection(StringaConnessione)
	cn.Open()
	Dim da As New OleDbDataAdapter("SELECT * FROM CAMPI", cn)
	da.Fill(ds, "campi")
	cn.Close()

End Sub

Sub InitializeBinding()
	Me.DataGrid1.DataSource = ds
	Me.DataGrid1.DataMember = "campi"

End Sub

[Stealth]

e se invece devo fare una SQl query di INSERT nel db?
uso lo stesso codice e cambi la stringa sql?