Newsgroup: it.comp.lang.visual-basic
Titolo: Qual'e' la via piu' breve (via grafica) di visualizzarer una tabella/query Db???

Usando VB .NET, ed avendo gia' un server Msde con il Db pronto all'interno,
quale'e' la via piu' breve di visualizzare una tabella/query magari usando
il DataGrid fornito di serie, intendo usando l'ambiente grafico non
riempiendo la griglia a colpi di codice.
Ovviamente la griglia deve essere editabile.
Grazie per l'aiuto.
RobertoA

RobertoA ha scritto:

In pochi colpi si fa, ma vedessi poi la quantita' disumana di codice 
che viene generato: praticamente ti leghi mani e piedi all' ambiente visual
studio di microsoft.
1.) Ho creato un nuovo progetto vb di tipo windows application;
2) Ho aperto il server explorer ed ho esteso il nodo del mio sql server locale;
3) Ho trascinato una tabella nel form generato di default;
4) Mi sono spuntati una sqlconnection ed un sql adapter;
5) Ho selezionato il sqladapter e sul suo menu popup ho selezionato Generate Dataset;
6) Ho disegnato una datagrid sul form;
7) Mi sono divertito a selezionare uno degli stili della griglia dal menu Autoformat;
8) Nelle proprieta' della griglia ho impostato il DataSource al dataset.nometabella 
    che mi veniva offerto dalla combo della proprieta';
9) Ho fatto doppio clic sul form, che mi ha offerto la finestra del codice sull' evento
Load ed ho inserito quanto segue:
	Me.SqlDataAdapter1.Fill(Me.DataSet11)
10) Ho avviato con Ctrl+F5 ed ho editato la griglia.
Poi ho voluto guardare quale codice l' ambiente grafico aveva
generato per me:
<codice>
Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
	Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
	Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
	Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
	Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
	Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
	Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
	Friend WithEvents DataSet11 As DbProj1.DataSet1
	Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
		Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
		Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
		Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
		Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
		Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
		Me.DataSet11 = New DbProj1.DataSet1()
		Me.DataGrid1 = New System.Windows.Forms.DataGrid()
		CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'SqlSelectCommand1
		'
		Me.SqlSelectCommand1.CommandText = "SELECT CategoryID, CategoryName, Description, Picture FROM Categories"
		Me.SqlSelectCommand1.Connection = Me.SqlConnection1
		'
		'SqlInsertCommand1
		'
		Me.SqlInsertCommand1.CommandText = "INSERT INTO Categories(CategoryName, Description, Picture) VALUES (@CategoryName," & _
		" @Description, @Picture); SELECT CategoryID, CategoryName, Description, Picture " & _
		"FROM Categories WHERE (CategoryID = @@IDENTITY)"
		Me.SqlInsertCommand1.Connection = Me.SqlConnection1
		Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CategoryName", System.Data.SqlDbType.NVarChar, 15, "CategoryName"))
		Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.NVarChar, 1073741823, "Description"))
		Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Picture", System.Data.SqlDbType.VarBinary, 
2147483647
, "Picture"))
		'
		'SqlUpdateCommand1
		'
		Me.SqlUpdateCommand1.CommandText = "UPDATE Categories SET CategoryName = @CategoryName, Description = @Description, P" & _
		"icture = @Picture WHERE (CategoryID = @Original_CategoryID) AND (CategoryName = " & _
		"@Original_CategoryName); SELECT CategoryID, CategoryName, Description, Picture F" & _
		"ROM Categories WHERE (CategoryID = @CategoryID)"
		Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
		Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CategoryName", System.Data.SqlDbType.NVarChar, 15, "CategoryName"))
		Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Description", System.Data.SqlDbType.NVarChar, 1073741823, "Description"))
		Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Picture", System.Data.SqlDbType.VarBinary, 
2147483647
, "Picture"))
		Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryID", 
System.Data.SqlDbType.Int
, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryID", System.Data.DataRowVersion.Original, Nothing))
		Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryName", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryName", System.Data.DataRowVersion.Original, Nothing))
		Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CategoryID", 
System.Data.SqlDbType.Int
, 4, "CategoryID"))
		'
		'SqlDeleteCommand1
		'
		Me.SqlDeleteCommand1.CommandText = "DELETE FROM Categories WHERE (CategoryID = @Original_CategoryID) AND (CategoryNam" & _
		"e = @Original_CategoryName)"
		Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
		Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryID", 
System.Data.SqlDbType.Int
, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryID", System.Data.DataRowVersion.Original, Nothing))
		Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CategoryName", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryName", System.Data.DataRowVersion.Original, Nothing))
		'
		'SqlConnection1
		'
		Me.SqlConnection1.ConnectionString = "data source=localhost;initial catalog=Northwind;integrated security=SSPI;persist " & _
		"security info=False;workstation id=BALDER;packet size=4096"
		'
		'SqlDataAdapter1
		'
		Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
		Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
		Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
		Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Categories", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CategoryID", "CategoryID"), New System.Data.Common.DataColumnMapping("CategoryName", "CategoryName"), New System.Data.Common.DataColumnMapping("Description", "Description"), New System.Data.Common.DataColumnMapping("Picture", "Picture")})})
		Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
		'
		'DataSet11
		'
		Me.DataSet11.DataSetName = "DataSet1"
		Me.DataSet11.Locale = New System.Globalization.CultureInfo("it-IT")
		Me.DataSet11.Namespace = "
http://www.tempuri.org/DataSet1.xsd
"
		'
		'DataGrid1
		'
		Me.DataGrid1.AlternatingBackColor = System.Drawing.Color.WhiteSmoke
		Me.DataGrid1.BackColor = System.Drawing.Color.Gainsboro
		Me.DataGrid1.BackgroundColor = System.Drawing.Color.DarkGray
		Me.DataGrid1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.DataGrid1.CaptionBackColor = System.Drawing.Color.DarkKhaki
		Me.DataGrid1.CaptionFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
		Me.DataGrid1.CaptionForeColor = System.Drawing.Color.Black
		Me.DataGrid1.DataMember = ""
		Me.DataGrid1.DataSource = Me.DataSet11.Categories
		Me.DataGrid1.FlatMode = True
		Me.DataGrid1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
		Me.DataGrid1.ForeColor = System.Drawing.Color.Black
		Me.DataGrid1.GridLineColor = System.Drawing.Color.Silver
		Me.DataGrid1.HeaderBackColor = System.Drawing.Color.Black
		Me.DataGrid1.HeaderFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
		Me.DataGrid1.HeaderForeColor = System.Drawing.Color.White
		Me.DataGrid1.LinkColor = System.Drawing.Color.DarkSlateBlue
		Me.DataGrid1.Location = New System.Drawing.Point(0, 8)
 
Me.DataGrid1.Name
 = "DataGrid1"
		Me.DataGrid1.ParentRowsBackColor = System.Drawing.Color.LightGray
		Me.DataGrid1.ParentRowsForeColor = System.Drawing.Color.Black
		Me.DataGrid1.SelectionBackColor = System.Drawing.Color.Firebrick
		Me.DataGrid1.SelectionForeColor = System.Drawing.Color.White
		Me.DataGrid1.Size = New System.Drawing.Size(456, 344)
		Me.DataGrid1.TabIndex = 0
		'
		'Form1
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.ClientSize = New System.Drawing.Size(456, 349)
		Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.DataGrid1})
		Me.Name = "Form1"
		Me.Text = "Form1"
		CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)
	End Sub
#End Region
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Me.SqlDataAdapter1.Fill(Me.DataSet11)
	End Sub
End Class
</codice>
Se non fai (o non intendi fare) il programmatore di mestiere, nulla da dire,
ma in caso contrario... auguri!
-- 
ciao, hal

 ma in caso contrario... auguri!
perfetto per i non-vbisti come me allora ! :)
(tar)halluccio mio, disporresti per caso anche di un ide che generi
configurazioni, relazioni, statistiche e burocrazie varie (mandando al
contempo le o almeno parte delle i.i.i. (*) nel bitbucket), per i
non-burosauri come me ? j avrebbe un sacco di idee su come usare il
mio tempo libero...
ciao, j.
(*) innumerevoli inumane incazzature. di che tre i credevi stessi
parlando, eh, malignaccio ? :P

parlando, eh, malignaccio ? :P
Credevo fossero quelle della traduzione automatica :-o)
-- 
un hal che ne approfitta per aprire una pipe con un altro thread:
qui i pusillanimi sono in aumento :-P

 qui i pusillanimi sono in aumento :-P
ah no ! va bene tutto, ma non farsi delle pipe !
di nessun tipo :P

 di nessun tipo :P
Eddai, almeno quelle mentali, me (ce) le lasci?

 Eddai, almeno quelle mentali, me (ce) le lasci?
certo, finche' sono legali.
pero' mettiti avanti, comincia a rilevare le impronte.

 ha scritto nel messaggio
news:anss3h$gv8se$1...@ID-56381.news.dfncis.de...


RobertoA,
innanzi tutto ho apprezzato il tuo ringraziamento :-)
devo pero' "bacchettarti" per aver lasciato sotto al tuo testo
il riporto di "tutto" il messaggio al quale rispondevi: cio' e'
contrario alle regole di netiquette.
senza polemica, ti auguro una buona giornata :-)
--
ciao, hal
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:62Z110Z171Z29Y...@usenet.libero.it...
