This is the code that i used Option Strict On Public Class WebForm1 Inherits System.Web.UI.Page Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand Protected WithEvents
OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand Protected WithEvents DsBoredom1 As Boredom.dsBoredom
Protected WithEvents lbBoredom As System.Web.UI.WebControls.ListBox Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents lblRate As System.Web.UI.WebControls.Label
Protected WithEvents lblID As System.Web.UI.WebControls.Label Protected WithEvents dbBoredom As System.Data.OleDb.OleDbDataAdapter Private Sub Page_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then
dbBoredom.Fill(DsBoredom1) lbBoredom.DataBind() End If 'Put user code to initialize the page here End Sub Private Sub lbBoredom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbBoredom.SelectedIndexChanged If lbBoredom.SelectedIndex
<> -1 Then dbBoredom.SelectCommand.Parameters("Air quailty (effect)".Value=lbBoredom.SelectedItem.Text dbBoredom.Fill(DsBoredom1) lblID.DataBind() lblRate.DataBind() End If End Sub #Region " Web Form Designer Generated Code " 'This call is required by the
Web Form Designer. Private Sub InitializeComponent() Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection() Me.dbBoredom = New System.Data.OleDb.OleDbDataAdapter() Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand() Me.OleDbInsertCommand1
= New System.Data.OleDb.OleDbCommand() Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand() Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand() Me.DsBoredom1 = New Boredom.dsBoredom() CType(Me.DsBoredom1, System.ComponentModel.ISupportInitialize).BeginInit()
' 'OleDbConnection1 ' Me.OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\HealthD" & _ "ata\DummiesData.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 O" & _ "ps=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:D" & _ "on't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False" & _ ";Jet OLEDB:SFP=False" ' 'dbBoredom ' Me.dbBoredom.DeleteCommand = Me.OleDbDeleteCommand1 Me.dbBoredom.InsertCommand
= Me.OleDbInsertCommand1 Me.dbBoredom.SelectCommand = Me.OleDbSelectCommand1 Me.dbBoredom.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Air quailty (effect)", New System.Data.Common.DataColumnMapping()
{New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("Rate", "Rate")})}) Me.dbBoredom.UpdateCommand = Me.OleDbUpdateCommand1 ' 'OleDbDeleteCommand1 ' Me.OleDbDeleteCommand1.CommandText = "DELETE FROM [Air quailty
(effect)] WHERE (ID = ?)" Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1 Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False,
CType(10, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing)) ' 'OleDbInsertCommand1 ' Me.OleDbInsertCommand1.CommandText = "INSERT INTO [Air quailty (effect)] (Rate) VALUES (?)" Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Rate", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "Rate", System.Data.DataRowVersion.Current, Nothing)) '
'OleDbSelectCommand1 ' Me.OleDbSelectCommand1.CommandText = "SELECT ID, Rate FROM [Air quailty (effect)]" Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1 ' 'OleDbUpdateCommand1 ' Me.OleDbUpdateCommand1.CommandText = "UPDATE [Air quailty (effect)] SET
Rate = ? WHERE (ID = ?)" Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1 Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Rate", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10,
Byte), CType(0, Byte), "Rate", System.Data.DataRowVersion.Current, Nothing)) Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10,
Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing)) ' 'DsBoredom1 ' Me.DsBoredom1.DataSetName = "dsBoredom" Me.DsBoredom1.Locale = New System.Globalization.CultureInfo("en-NZ") Me.DsBoredom1.Namespace = "http://www.tempuri.org/dsBoredom.xsd"
CType(Me.DsBoredom1, System.ComponentModel.ISupportInitialize).EndInit() End Sub 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 End Class
I cut and pasted the first two paragraphs of code i don't know how all the other code got there so yeah thats just the code the first two paragraphs and the end class statemetn
Lollypop
Member
35 Points
7 Posts
Undeclared Dsblabla1
Aug 30, 2003 03:58 AM|LINK
JimmyM
Star
8796 Points
1671 Posts
Re: Undeclared Dsblabla1
Aug 30, 2003 04:13 AM|LINK
Lollypop
Member
35 Points
7 Posts
Re: Undeclared Dsblabla1
Aug 30, 2003 05:06 AM|LINK
Lollypop
Member
35 Points
7 Posts
Re: Undeclared Dsblabla1
Aug 30, 2003 06:35 AM|LINK