Hi Johann,
This is the one that works.
************************************************** ****
<%@ Page Language="vb" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim ConnStr as String
ConnStr =
"SERVER=localhost;LANGUAGE=swedish;DATABASE=Diskow eb;UID=sa;pwd=ohlywohly;"
Dim conn As SqlConnection = New SqlConnection(ConnStr)
Try
conn.Open()
Status.Text = "Connection strängen lyckades!"
Dim da As SqlDataAdapter = New SqlDataAdapter ("Select * From
calculate Order By Users_ID", conn)
Dim ds As New DataSet
da.Fill(ds,"calculate")
DataGrid1.DataSource=ds.Tables("calculate").Defaul tview
DataGrid1.DataBind()
Catch ex As SqlException
Status.Text = ex.Message
Finally
conn.Close()
End Try
End Sub
Sub dgrdTitles_SortCommand( s As Object, e As
DataGridSortCommandEventArgs)
'BindDataGrid( e.SortExpression )
End Sub
</script>
<html>
<head>
<title>Sample ASP.NET Page</title>
</head>
<body>
<h1>Koppla till datakällan med 'Connection objektet'
</h1>
<asp:label id="Status" runat="server"></asp:label>
<br />
<br />
<asp:DataGrid id="DataGrid1" runat="server" font-names="verdana"
font-size="x-small" BorderWidth="1" BorderColor="black" BorderStyle="solid"
GridLines="none" CellSpacing="2" CellPadding="2" AutoGenerateColumns="False">
<AlternatingItemStyle backcolor="palegoldenrod" />
<ItemStyle backcolor="beige" />
<HeaderStyle forecolor="white" backcolor="brown" font-bold="true" />
<columns>
<asp:BoundColumn runat="server" DataField="Users_ID"
HeaderText="AnvID" />
<asp:BoundColumn runat="server" DataField="CalcDateTime"
HeaderText="Datum/Tid" />
<asp:BoundColumn runat="server" DataField="DataPattern"
HeaderText="Mönster" />
<asp:BoundColumn runat="server" DataField="BerGrund"
HeaderText="Grund" />
<asp:BoundColumn runat="server" DataField="ProcSats"
HeaderText="%" DataFormatString="{0:c2}" />
<asp:BoundColumn runat="server" DataField="DatKonv"
HeaderText="DatumKonv" />
<asp:BoundColumn runat="server" DataField="StartDate"
HeaderText="Startdatum" DataFormatString="{0:d}" />
<asp:BoundColumn runat="server" DataField="EndDate"
HeaderText="Sludatum" DataFormatString="{0:d}" />
<asp:BoundColumn runat="server" DataField="dblAmount"
HeaderText="Belopp" DataFormatString="{0:c2}" />
</columns>
</asp:DataGrid>
</body>
</html>
************************************************** *
And here's the
************************************************** ******
<%@ Page Language="vb" Debug="True" AutoEventWireup="false"
Codebehind="testConnStr.aspx.vb" Inherits="testSqlServ2kConnStr.testConnStr"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>testConnStr</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema"
content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body>
<h1>Koppla till datakällan med 'Connection objektet'
</h1>
<asp:label id="Status" runat="server"></asp:label>
<br>
<br>
<asp:DataGrid id="DataGrid1" runat="server" font-names="verdana"
font-size="x-small" BorderWidth="1"
BorderColor="black" BorderStyle="solid" GridLines="none" CellSpacing="2"
CellPadding="2" AutoGenerateColumns="False">
<AlternatingItemStyle backcolor="palegoldenrod" />
<ItemStyle backcolor="beige" />
<HeaderStyle forecolor="white" backcolor="brown" font-bold="true" />
<columns>
<asp:BoundColumn runat="server" DataField="Users_ID" HeaderText="AnvID" />
<asp:BoundColumn runat="server" DataField="CalcDateTime"
HeaderText="Datum/Tid" />
<asp:BoundColumn runat="server" DataField="DataPattern"
HeaderText="Mönster" />
<asp:BoundColumn runat="server" DataField="BerGrund" HeaderText="Grund" />
<asp:BoundColumn runat="server" DataField="ProcSats" HeaderText="%"
DataFormatString="{0:c2}" />
<asp:BoundColumn runat="server" DataField="DatKonv"
HeaderText="DatumKonv" />
<asp:BoundColumn runat="server" DataField="StartDate"
HeaderText="Startdatum" DataFormatString="{0:d}" />
<asp:BoundColumn runat="server" DataField="EndDate"
HeaderText="Sludatum" DataFormatString="{0:d}" />
<asp:BoundColumn runat="server" DataField="dblAmount"
HeaderText="Belopp" DataFormatString="{0:c2}" />
</columns>
</asp:DataGrid>
</body>
</HTML>
********************************
And the code behund
*********************************
Imports System.Data.SqlClient
Imports System.Data
Imports System.Configuration
Imports System.IO
Public Class testConnStr
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Protected WithEvents Status As System.Web.UI.WebControls.Label
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
'NOTE: The following placeholder declaration is required by the Web Form
Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim ConnStr As String
ConnStr =
"SERVER=localhost;LANGUAGE=swedish;DATABASE=Diskow eb;UID=sa;pwd=ohlywohly;"
Dim conn As SqlConnection = New SqlConnection(ConnStr)
Try
conn.Open()
Status.Text = "Connection strängen lyckades!"
Dim da As SqlDataAdapter = New SqlDataAdapter("Select * From
calculate Order By Users_ID", conn)
Dim ds As New DataSet
da.Fill(ds, "calculate")
DataGrid1.DataSource = ds.Tables("calculate").DefaultView
DataGrid1.DataBind()
Catch ex As SqlException
Status.Text = ex.Message
Finally
conn.Close()
End Try
End Sub
Sub dgrdTitles_SortCommand(ByVal s As Object, ByVal e As
DataGridSortCommandEventArgs)
'BindDataGrid( e.SortExpression )
End Sub
End Class
********************
Kenneth P
