Problem Binding to DataGrid

  • Thread starter Thread starter Wayne Wengert
  • Start date Start date
W

Wayne Wengert

I posted this in another NG and it was suggested that I post it here.

I am using VSNET 2003 and attempting to display the contents of a table (SQL
Connection) in a datagrid. I created and tested the SQLConnection, I created
the SQLDataAdapter and can preview the data. I generated a dataset and used
it as the datasource for the datagrid. I added code in the page load event
to fill the dataset. When I attempt to run the project I get the attached
error message. The error points to the line of code that should be filling
the dataset when the page is loaded.

The code-behind is shown below..

Also, can someone explain the "Name" property of a dataset? In my example
the "(name)" is DataSet11 but the "DataSetName" shows DataSet1. That sure
doesn't make sense to me?

================= code ==========================
Imports System.Data.SqlClient

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 SqlConnection1 As System.Data.SqlClient.SqlConnection

Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter

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 DataGrid1 As System.Windows.Forms.DataGrid

Friend WithEvents DataSet11 As TestBinding.DataSet1

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection

Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter

Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand

Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand

Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand

Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand

Me.DataGrid1 = New System.Windows.Forms.DataGrid

Me.DataSet11 = New TestBinding.DataSet1

Me.TextBox1 = New System.Windows.Forms.TextBox

CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()

CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'SqlConnection1

'

Me.SqlConnection1.ConnectionString = "workstation id=IBMNETVISTA;packet
size=4096;user id=wengert;data source=""sql.weng" & _

"ert.org"";persist security info=False;initial catalog=wengert"

'

'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", "judgeevaluations", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("JudgeName", "JudgeName"), New
System.Data.Common.DataColumnMapping("Caption", "Caption"), New
System.Data.Common.DataColumnMapping("Evaluator", "Evaluator"), New
System.Data.Common.DataColumnMapping("TapeReview", "TapeReview"), New
System.Data.Common.DataColumnMapping("Observation", "Observation"), New
System.Data.Common.DataColumnMapping("RecapReview", "RecapReview"), New
System.Data.Common.DataColumnMapping("CJInfo", "CJInfo"), New
System.Data.Common.DataColumnMapping("UnitProtest", "UnitProtest"), New
System.Data.Common.DataColumnMapping("JudgeConcern", "JudgeConcern"), New
System.Data.Common.DataColumnMapping("RegionalScoring", "RegionalScoring"),
New System.Data.Common.DataColumnMapping("WCScoring", "WCScoring"), New
System.Data.Common.DataColumnMapping("Dialog", "Dialog"), New
System.Data.Common.DataColumnMapping("Conduct", "Conduct"), New
System.Data.Common.DataColumnMapping("CurrentStatus", "CurrentStatus"), New
System.Data.Common.DataColumnMapping("ProposedStatus", "ProposedStatus"),
New System.Data.Common.DataColumnMapping("DiscussAtTF", "DiscussAtTF"), New
System.Data.Common.DataColumnMapping("SpecificStudy", "SpecificStudy"), New
System.Data.Common.DataColumnMapping("RotateOut", "RotateOut"), New
System.Data.Common.DataColumnMapping("Comments", "Comments"), New
System.Data.Common.DataColumnMapping("LastUpdated", "LastUpdated")})})

Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1

'

'SqlDeleteCommand1

'

Me.SqlDeleteCommand1.CommandText = "DELETE FROM dbo.judgeevaluations WHERE
(ID = @Original_ID) AND (CJInfo = @Origina" & _

"l_CJInfo OR @Original_CJInfo IS NULL AND CJInfo IS NULL) AND (Caption =
@Origina" & _

"l_Caption OR @Original_Caption IS NULL AND Caption IS NULL) AND (Comments =
@Ori" & _

"ginal_Comments OR @Original_Comments IS NULL AND Comments IS NULL) AND
(Conduct " & _

"= @Original_Conduct OR @Original_Conduct IS NULL AND Conduct IS NULL) AND
(Curre" & _

"ntStatus = @Original_CurrentStatus OR @Original_CurrentStatus IS NULL AND
Curren" & _

"tStatus IS NULL) AND (Dialog = @Original_Dialog OR @Original_Dialog IS NULL
AND " & _

"Dialog IS NULL) AND (DiscussAtTF = @Original_DiscussAtTF OR
@Original_DiscussAtT" & _

"F IS NULL AND DiscussAtTF IS NULL) AND (Evaluator = @Original_Evaluator OR
@Orig" & _

"inal_Evaluator IS NULL AND Evaluator IS NULL) AND (JudgeConcern =
@Original_Judg" & _

"eConcern OR @Original_JudgeConcern IS NULL AND JudgeConcern IS NULL) AND
(JudgeN" & _

"ame = @Original_JudgeName OR @Original_JudgeName IS NULL AND JudgeName IS
NULL) " & _

"AND (LastUpdated = @Original_LastUpdated OR @Original_LastUpdated IS NULL
AND La" & _

"stUpdated IS NULL) AND (Observation = @Original_Observation OR
@Original_Observa" & _

"tion IS NULL AND Observation IS NULL) AND (ProposedStatus =
@Original_ProposedSt" & _

"atus OR @Original_ProposedStatus IS NULL AND ProposedStatus IS NULL) AND
(RecapR" & _

"eview = @Original_RecapReview OR @Original_RecapReview IS NULL AND
RecapReview I" & _

"S NULL) AND (RegionalScoring = @Original_RegionalScoring OR
@Original_RegionalSc" & _

"oring IS NULL AND RegionalScoring IS NULL) AND (RotateOut =
@Original_RotateOut " & _

"OR @Original_RotateOut IS NULL AND RotateOut IS NULL) AND (SpecificStudy =
@Orig" & _

"inal_SpecificStudy OR @Original_SpecificStudy IS NULL AND SpecificStudy IS
NULL)" & _

" AND (TapeReview = @Original_TapeReview OR @Original_TapeReview IS NULL AND
Tape" & _

"Review IS NULL) AND (UnitProtest = @Original_UnitProtest OR
@Original_UnitProtes" & _

"t IS NULL AND UnitProtest IS NULL) AND (WCScoring = @Original_WCScoring OR
@Orig" & _

"inal_WCScoring IS NULL AND WCScoring IS NULL)"

Me.SqlDeleteCommand1.Connection = Me.SqlConnection1

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_ID",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original,
Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_CJInfo",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "CJInfo",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Caption",
System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Caption",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Comments",
System.Data.SqlDbType.VarChar, 250, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Comments",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Conduct",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Conduct",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_CurrentStatus",
System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CurrentStatus",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Dialog",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Dialog",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_DiscussAtTF",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "DiscussAtTF",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Evaluator",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Evaluator",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_JudgeConcern",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "JudgeConcern",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_JudgeName",
System.Data.SqlDbType.VarChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "JudgeName",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_LastUpdated",
System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "LastUpdated",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Observation",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Observation",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_ProposedStatus",
System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ProposedStatus",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_RecapReview",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "RecapReview",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_RegionalScoring",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "RegionalScoring",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_RotateOut",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "RotateOut",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_SpecificStudy",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "SpecificStudy",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_TapeReview",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "TapeReview",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_UnitProtest",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "UnitProtest",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlDeleteCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_WCScoring",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "WCScoring",
System.Data.DataRowVersion.Original, Nothing))

'

'SqlInsertCommand1

'

Me.SqlInsertCommand1.CommandText = "INSERT INTO
dbo.judgeevaluations(JudgeName, Caption, Evaluator, TapeReview, Obser" & _

"vation, RecapReview, CJInfo, UnitProtest, JudgeConcern, RegionalScoring,
WCScori" & _

"ng, Dialog, Conduct, CurrentStatus, ProposedStatus, DiscussAtTF,
SpecificStudy, " & _

"RotateOut, Comments, LastUpdated) VALUES (@JudgeName, @Caption, @Evaluator,
@Tap" & _

"eReview, @Observation, @RecapReview, @CJInfo, @UnitProtest, @JudgeConcern,
@Regi" & _

"onalScoring, @WCScoring, @Dialog, @Conduct, @CurrentStatus,
@ProposedStatus, @Di" & _

"scussAtTF, @SpecificStudy, @RotateOut, @Comments, @LastUpdated); SELECT ID,
Judg" & _

"eName, Caption, Evaluator, TapeReview, Observation, RecapReview, CJInfo,
UnitPro" & _

"test, JudgeConcern, RegionalScoring, WCScoring, Dialog, Conduct,
CurrentStatus, " & _

"ProposedStatus, DiscussAtTF, SpecificStudy, RotateOut, Comments,
LastUpdated FRO" & _

"M dbo.judgeevaluations WHERE (ID = @@IDENTITY)"

Me.SqlInsertCommand1.Connection = Me.SqlConnection1

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@JudgeName",
System.Data.SqlDbType.VarChar, 25, "JudgeName"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Caption",
System.Data.SqlDbType.VarChar, 2, "Caption"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Evaluator", System.Data.SqlDbType.Int,
4, "Evaluator"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@TapeReview", System.Data.SqlDbType.Bit,
1, "TapeReview"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Observation",
System.Data.SqlDbType.Bit, 1, "Observation"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RecapReview",
System.Data.SqlDbType.Bit, 1, "RecapReview"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@CJInfo", System.Data.SqlDbType.Bit, 1,
"CJInfo"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@UnitProtest",
System.Data.SqlDbType.Bit, 1, "UnitProtest"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@JudgeConcern",
System.Data.SqlDbType.Bit, 1, "JudgeConcern"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RegionalScoring",
System.Data.SqlDbType.Int, 4, "RegionalScoring"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@WCScoring", System.Data.SqlDbType.Int,
4, "WCScoring"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Dialog", System.Data.SqlDbType.Int, 4,
"Dialog"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Conduct", System.Data.SqlDbType.Int, 4,
"Conduct"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@CurrentStatus",
System.Data.SqlDbType.VarChar, 2, "CurrentStatus"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@ProposedStatus",
System.Data.SqlDbType.VarChar, 2, "ProposedStatus"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@DiscussAtTF",
System.Data.SqlDbType.Bit, 1, "DiscussAtTF"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@SpecificStudy",
System.Data.SqlDbType.Bit, 1, "SpecificStudy"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RotateOut", System.Data.SqlDbType.Bit,
1, "RotateOut"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Comments",
System.Data.SqlDbType.VarChar, 250, "Comments"))

Me.SqlInsertCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@LastUpdated",
System.Data.SqlDbType.DateTime, 4, "LastUpdated"))

'

'SqlSelectCommand1

'

Me.SqlSelectCommand1.CommandText = "SELECT ID, JudgeName, Caption,
Evaluator, TapeReview, Observation, RecapReview, C" & _

"JInfo, UnitProtest, JudgeConcern, RegionalScoring, WCScoring, Dialog,
Conduct, C" & _

"urrentStatus, ProposedStatus, DiscussAtTF, SpecificStudy, RotateOut,
Comments, L" & _

"astUpdated FROM dbo.judgeevaluations"

Me.SqlSelectCommand1.Connection = Me.SqlConnection1

'

'SqlUpdateCommand1

'

Me.SqlUpdateCommand1.CommandText = "UPDATE dbo.judgeevaluations SET
JudgeName = @JudgeName, Caption = @Caption, Evalu" & _

"ator = @Evaluator, TapeReview = @TapeReview, Observation = @Observation,
RecapRe" & _

"view = @RecapReview, CJInfo = @CJInfo, UnitProtest = @UnitProtest,
JudgeConcern " & _

"= @JudgeConcern, RegionalScoring = @RegionalScoring, WCScoring =
@WCScoring, Dia" & _

"log = @Dialog, Conduct = @Conduct, CurrentStatus = @CurrentStatus,
ProposedStatu" & _

"s = @ProposedStatus, DiscussAtTF = @DiscussAtTF, SpecificStudy =
@SpecificStudy," & _

" RotateOut = @RotateOut, Comments = @Comments, LastUpdated = @LastUpdated
WHERE " & _

"(ID = @Original_ID) AND (CJInfo = @Original_CJInfo OR @Original_CJInfo IS
NULL A" & _

"ND CJInfo IS NULL) AND (Caption = @Original_Caption OR @Original_Caption IS
NULL" & _

" AND Caption IS NULL) AND (Comments = @Original_Comments OR
@Original_Comments I" & _

"S NULL AND Comments IS NULL) AND (Conduct = @Original_Conduct OR
@Original_Condu" & _

"ct IS NULL AND Conduct IS NULL) AND (CurrentStatus =
@Original_CurrentStatus OR " & _

"@Original_CurrentStatus IS NULL AND CurrentStatus IS NULL) AND (Dialog =
@Origin" & _

"al_Dialog OR @Original_Dialog IS NULL AND Dialog IS NULL) AND (DiscussAtTF
= @Or" & _

"iginal_DiscussAtTF OR @Original_DiscussAtTF IS NULL AND DiscussAtTF IS
NULL) AND" & _

" (Evaluator = @Original_Evaluator OR @Original_Evaluator IS NULL AND
Evaluator I" & _

"S NULL) AND (JudgeConcern = @Original_JudgeConcern OR
@Original_JudgeConcern IS " & _

"NULL AND JudgeConcern IS NULL) AND (JudgeName = @Original_JudgeName OR
@Original" & _

"_JudgeName IS NULL AND JudgeName IS NULL) AND (LastUpdated =
@Original_LastUpdat" & _

"ed OR @Original_LastUpdated IS NULL AND LastUpdated IS NULL) AND
(Observation = " & _

"@Original_Observation OR @Original_Observation IS NULL AND Observation IS
NULL) " & _

"AND (ProposedStatus = @Original_ProposedStatus OR @Original_ProposedStatus
IS NU" & _

"LL AND ProposedStatus IS NULL) AND (RecapReview = @Original_RecapReview OR
@Orig" & _

"inal_RecapReview IS NULL AND RecapReview IS NULL) AND (RegionalScoring =
@Origin" & _

"al_RegionalScoring OR @Original_RegionalScoring IS NULL AND RegionalScoring
IS N" & _

"ULL) AND (RotateOut = @Original_RotateOut OR @Original_RotateOut IS NULL
AND Rot" & _

"ateOut IS NULL) AND (SpecificStudy = @Original_SpecificStudy OR
@Original_Specif" & _

"icStudy IS NULL AND SpecificStudy IS NULL) AND (TapeReview =
@Original_TapeRevie" & _

"w OR @Original_TapeReview IS NULL AND TapeReview IS NULL) AND (UnitProtest
= @Or" & _

"iginal_UnitProtest OR @Original_UnitProtest IS NULL AND UnitProtest IS
NULL) AND" & _

" (WCScoring = @Original_WCScoring OR @Original_WCScoring IS NULL AND
WCScoring I" & _

"S NULL); SELECT ID, JudgeName, Caption, Evaluator, TapeReview, Observation,
Reca" & _

"pReview, CJInfo, UnitProtest, JudgeConcern, RegionalScoring, WCScoring,
Dialog, " & _

"Conduct, CurrentStatus, ProposedStatus, DiscussAtTF, SpecificStudy,
RotateOut, C" & _

"omments, LastUpdated FROM dbo.judgeevaluations WHERE (ID = @ID)"

Me.SqlUpdateCommand1.Connection = Me.SqlConnection1

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@JudgeName",
System.Data.SqlDbType.VarChar, 25, "JudgeName"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Caption",
System.Data.SqlDbType.VarChar, 2, "Caption"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Evaluator", System.Data.SqlDbType.Int,
4, "Evaluator"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@TapeReview", System.Data.SqlDbType.Bit,
1, "TapeReview"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Observation",
System.Data.SqlDbType.Bit, 1, "Observation"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RecapReview",
System.Data.SqlDbType.Bit, 1, "RecapReview"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@CJInfo", System.Data.SqlDbType.Bit, 1,
"CJInfo"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@UnitProtest",
System.Data.SqlDbType.Bit, 1, "UnitProtest"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@JudgeConcern",
System.Data.SqlDbType.Bit, 1, "JudgeConcern"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RegionalScoring",
System.Data.SqlDbType.Int, 4, "RegionalScoring"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@WCScoring", System.Data.SqlDbType.Int,
4, "WCScoring"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Dialog", System.Data.SqlDbType.Int, 4,
"Dialog"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Conduct", System.Data.SqlDbType.Int, 4,
"Conduct"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@CurrentStatus",
System.Data.SqlDbType.VarChar, 2, "CurrentStatus"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@ProposedStatus",
System.Data.SqlDbType.VarChar, 2, "ProposedStatus"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@DiscussAtTF",
System.Data.SqlDbType.Bit, 1, "DiscussAtTF"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@SpecificStudy",
System.Data.SqlDbType.Bit, 1, "SpecificStudy"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@RotateOut", System.Data.SqlDbType.Bit,
1, "RotateOut"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Comments",
System.Data.SqlDbType.VarChar, 250, "Comments"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@LastUpdated",
System.Data.SqlDbType.DateTime, 4, "LastUpdated"))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_ID",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original,
Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_CJInfo",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "CJInfo",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Caption",
System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Caption",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Comments",
System.Data.SqlDbType.VarChar, 250, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Comments",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Conduct",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Conduct",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_CurrentStatus",
System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CurrentStatus",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Dialog",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Dialog",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_DiscussAtTF",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "DiscussAtTF",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Evaluator",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Evaluator",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_JudgeConcern",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "JudgeConcern",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_JudgeName",
System.Data.SqlDbType.VarChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "JudgeName",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_LastUpdated",
System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "LastUpdated",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_Observation",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "Observation",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_ProposedStatus",
System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ProposedStatus",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_RecapReview",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "RecapReview",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_RegionalScoring",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "RegionalScoring",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_RotateOut",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "RotateOut",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_SpecificStudy",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "SpecificStudy",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_TapeReview",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "TapeReview",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_UnitProtest",
System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "UnitProtest",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@Original_WCScoring",
System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False,
CType(0, Byte), CType(0, Byte), "WCScoring",
System.Data.DataRowVersion.Original, Nothing))

Me.SqlUpdateCommand1.Parameters.Add(New
System.Data.SqlClient.SqlParameter("@ID", System.Data.SqlDbType.Int, 4,
"ID"))

'

'DataGrid1

'

Me.DataGrid1.DataMember = ""

Me.DataGrid1.DataSource = Me.DataSet11.judgeevaluations

Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText

Me.DataGrid1.Location = New System.Drawing.Point(18, 35)

Me.DataGrid1.Name = "DataGrid1"

Me.DataGrid1.Size = New System.Drawing.Size(691, 255)

Me.DataGrid1.TabIndex = 0

'

'DataSet11

'

Me.DataSet11.DataSetName = "DataSet1"

Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-US")

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(255, 340)

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.TabIndex = 1

Me.TextBox1.Text = "TextBox1"

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(724, 403)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.DataGrid1)

Me.Name = "Form1"

Me.Text = "Form1"

CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.DataSet11, 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

SqlDataAdapter1.Fill(DataSet11, "judgeevaluations")

End Sub

End Class

================================================

Wayne
 
Have you stepped through the code, in debug, to determine where the
exception is being thrown? That would be my first step. You can then
surround that section with a Try ... Catch and get the exception message
with, hopefully, a better idea of what is happening. I am not that fond of
the drag and drop methodology. I hand code using the Microsoft Data Access
Application Block. Still but a few lines of code, but much easier for me to
debug.

The problem, most likely, is here. Try this instead:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

If Not Page.IsPostBack Then
Try
SqlConnection1.Open()
SqlDataAdapter1.Fill(DataSet11, "judgeevaluations")

Finally
If SqlConnection1.State = ConnectionState.Open Then
SqlConnection1.Close()
End If

'Always good to dispose
SqlConnection1.Dispose()
End Try

DataGrid1.DataSource = DataSet11
DataGrid1.DataBind()
End If

End Sub

You may need to massage the code above to get it working, but it is on the
right track. You only need to bind to data when no postback. I generally
move the code that creates the dataset to another routine, but the drag and
drop makes this a bit more difficult.

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

**********************************************************************
Think Outside the Box!
**********************************************************************
 
Thanks for the response Gregory. Since this is a Windows form instead of an
ASP form am I correct that I need to leave out the "if postback"? Also, I am
often unclear with the Windows Form Designer generated code as far as
knowing what I can/should replace?

I will give your example a try and let you know what happens.

Wayne
 
Back
Top