"Provider=Microsoft.Jet.OLEDB.4.0; Data SOURCE=" & ("c:\Inetpub\wwwroot\testes\DB.mdb") & ";"
conexão SQLOLEDB, conexão OLEDB, conexão SQL, conexão access
--------------------------------------------------------------------------------
<%@ Import Namespace="System.Data.OLEDB" %>
<%@ Import Namespace="System.Data" %>
<HTML>
<HEAD >
<title>Pessoa</title>
<script language="VB" runat="server" Debug = "true">
Protected Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
'verdade a primeira vez que o Browse carrega a pagina
' vincula o grid aos dados
grdPessoas.DataSource = GetDataSource()
grdPessoas.DataBind()
End If
End Sub
Protected Function GetDataSource() As System.Collections.ICollection
' abre uma conexao
Dim strConnection As String = "Provider=SQLOLEDB;data source=MAQUINA;initial catalog=DB;persist security info=False;user id=sa;workstation id=MAQUINA;packet size=4096"
Dim cn As OleDbConnection = New OleDbConnection(strConnection)
cn.Open()
'define um objeto dataAdapater
Dim strSql As String = "SELECT * FROM Pessoa "
Dim da As OleDbDataAdapter = New OleDbDataAdapter(strSql, cn)
' Carrega o DataSet
Dim ds As DataSet = New DataSet()
da.Fill(ds, "Instituicao")
'fecha a conexao
cn.Close()
'envolve o objeto Datatable Clientes em um objeto DataView
Dim dv As New DataView(ds.Tables("Pessoa"))
Return dv
End Function
</script>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="AUTHOR" content="Macul">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="VBScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:Label id="Label1" style="Z-INDEX: 101; LEFT: 457px; POSITION: absolute; TOP: 44px" runat="server" Width="103px" Height="36px" Font-Names="Arial" Font-Size="Large" ForeColor="Red">Pessoa</asp:Label>
</form>
<asp:DataGrid id="grdPessoas" runat="server" ForeColor="Black" style="Z-INDEX: 102; LEFT: 188px; POSITION: absolute; TOP: 98px" AutoGenerateColumns="False">
<AlternatingItemStyle BackColor="Gainsboro"></AlternatingItemStyle>
<ItemStyle BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="Black"></HeaderStyle>
<FooterStyle ForeColor="White" BackColor="Silver"></FooterStyle>
<Columns>
<asp:HyperLinkColumn Target="_self" DataNavigateUrlField="ID_PESSOA" DataTextField="NOME_PESSOA" HeaderText="Nome"></asp:HyperLinkColumn>
<asp:BoundColumn DataField="EMAIL01" HeaderText="EMAIL" FooterText="ID_PESSOA"></asp:BoundColumn>
<asp:BoundColumn DataField="NOME_INST" HeaderText="INSTITUIÇÃO" FooterText="NOME_INST"></asp:BoundColumn>
<asp:BoundColumn DataField="DATA_FILIACAO" HeaderText="Data Filiação" FooterText="DATA_FILIACAO"></asp:BoundColumn>
</Columns>
</asp:DataGrid>
</body>
</HTML>http://www.macul.eti...t/datagrid.html
T +
MACUL
