codice:
Option Strict On
Imports o = System.Data.OleDb
Partial Class prove_a
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
BindData()
End If
End Sub
Protected Sub BindData()
Dim Field(6) As BoundField
Dim ColumnName As String() = {"ID", "PASSWORD", "TESTO", "DOUBLE", "VALUTA", "MEMO", "DATA_ORA"}
Dim ColumnTitle As String() = {"ID", "PASSWORD", "TESTO", "DOUBLE", "VALUTA", "MEMO", "DATA_ORA"}
For i As Integer = 0 To 6
Field(i) = New BoundField()
With Field(i)
.DataField = ColumnName(i)
.HeaderText = ColumnTitle(i)
End With
Me.GridView1.Columns.Add(Field(i))
Next
msole.DataBind(Me.GridView1, gl.StringaConnessioneTest, "select * from campi", New String() {"id"})
End Sub
End Class