No problem Doug, thanks for clearing that up.
I use MS Outlook Express to read and write to many newsgroups. You probably
already have it and all you have to do is create a newsgroup account with
the following settings:
news server: msnews.microsoft.com
Create a user name of your choosing
Create a reply to email address (don't post your actual email address as the
spambots will find you) do something like
DougREMOVETHIS@something.com
Please let me know how my proposed solution works for you.
-Scott
"Douglas Buchanan" <dbuchanan52@hotmail.com> wrote in message
news:7217f9ea.0411160907.2cb89560@posting.google.c om...[color=blue]
> Scott,
>
> I apologize!!
>[color=green]
>> Please don't take it as a critique[/color]
>
> I missed your complete message - I'm using Google, Google chops off
> after about fifty lines - It tells you that the that the messgae
> continues - I overlooked it. Usually what is chopped off is the
> history of the total thread back to the beginning - or as much as the
> last writer decided to leave there. I like Google groups, but it's a
> little too easy to miss the full content. [Perhaps I need to look into
> other providers of groups. You may make recommendations.]
>
> I DO appreciate critique and input, and as you can see I can benefit
> from it, but what I thought was happening was that my thread had
> gotton sidetracked from my request for a suggestion and alternative,
> to other things NOT at the core of the thread. I was frustrated
> because you seemed to be telling me that I was going about it the
> wrong way while that was the whole point of the my thread.
>[color=green]
>> I'm curious why you didn't mention any of that in your reply.[/color]
>
> I will eagerly go back and read you full post. - I am very sorry for
> the confusion I caused.
>
> --Doug
>
> "Scott M." <s-mar@nospam.nospam> wrote in message
> news:<uy3q$g5yEHA.2980@TK2MSFTNGP10.phx.gbl>...[color=green]
>> Please don't take it as a critique, but I had difficulty in understanding
>> where your problem was because of all the unnecessary code changes. I
>> mentioned Option Strict because you kept saying how you had build errors,
>> but the code worked. With Option Strict On, you can't even compile your
>> code when it has errors, so I still am confused as to how you can have
>> errors but your code works.
>>
>> I tried to give you the benefit of my experience with .NET because I
>> could
>> tell from the code that you wrote that you might gain from it. It wasn't
>> meant as an insult. I don't think I presented anything in a rude or
>> condescending way. I was simply trying to help you reach your goal of
>> slimming down your code.
>>
>> I asked you to send me the code that you said was working. Now, you are
>> saying that the code you sent was for illustration purposes and you are
>> berating me for not knowing this? I've noticed that below you didn't say
>> anything about the other "critiques" I gave you to reduce your code and
>> make
>> it cleaner like getting rid of the explicit command object or declaring
>> your
>> string and chopping its first 5 chars off at the same time.
>>
>> The point is that no one knows your application better than you do and
>> for
>> someone else to help, you sometimes have to look at the whole thing, not
>> just the one line that is failing. I did that and, as I did, I found
>> that I
>> would have written this application differently than you did. This is
>> what
>> you asked for..."another alternative".
>>
>> I also spent a good 2 hours of my time trying to help you solve your
>> problem. I ultimately provided you with code that works and meets your
>> criteria of being as lean as possible. I'm curious why you didn't
>> mention
>> any of that in your reply. Did you try it? Does it do what you were
>> looking for? Did you understand my approach? Wasn't it that "other
>> alternative" you had asked for?
>>
>> I basically wrote this piece of the application for you and tested it.
>> And
>> you have no comments on that? Wow...you're welcome.
>>
>>
>> "Douglas Buchanan" <dbuchanan52@hotmail.com> wrote in message
>> news:7217f9ea.0411151810.74e53716@posting.google.c om...[color=darkred]
>> > Scott,
>> >
>> > I'm not looking for a critique on the last sample code I sent. I threw
>> > it together for illustration purposes.
>> >
>> > Scott > I would STRONGLY recommend that you turn Option Strict ON
>> >
>> > [Doug] I always use Option Strict in my code.
>> >
>> > Scott > Why are your putting da in quotes here?
>> >
>> > [Doug] For illustration purposes. Did you forget what this thread is
>> > about? My use of...
>> > CType("da", SqlDataAdapter).Fill(Me.ds, "Employees")
>> > ... was completely out of context of my original post.
>> > I provided it in isolation for you to illustrate how it worked in the
>> > presence of a actual SqlDataAdapter.
>> >
>> > Scott > you seem to have moved a lot of VS.NET generated code around
>> > and put it in different places.
>> >
>> > [Doug] I admit I'm not familiar with making code not based on a form.
>> > I was trying to make code that you could run without having a
>> > drag&drop DataAdapter and an xsd file.
>> >
>> > Scott > I understand what you are trying to do, but I think that you
>> > are going about this entirely the wrong way.
>> >
>> > [Doug] Exactly the point of my post. Remember my question in my
>> > original post: "Does anyone suggest any other alternatives?"
>> >
>> > I thought I found a way to replace 70 lines of code with 5 and wanted
>> > to know what to expect from my approach and asked for suggested
>> > alternatives.
>> >
>> > Are there any alternatives - (please see my second post in this thread
>> > if you need a refresher on the context.)
>> >
>> > Thank you,
>> > --Doug
>> >
>> > "Scott M." <s-mar@nospam.nospam> wrote in message
>> > news:<Of8FOv0yEHA.3824@TK2MSFTNGP09.phx.gbl>...
>> >> A few things here:
>> >>
>> >> "Imports System.Windows.Forms" is not needed if you are using VS.NET
>> >> since a
>> >> project wide imports statement to this namespace is made automatically
>> >> for
>> >> you.
>> >>
>> >> I would STRONGLY recommend that you trun Option Strict ON (in the
>> >> Build
>> >> section of your project's properties). With OS = ON, if you have
>> >> build
>> >> errors, then your code can't run and that is a good thing. This is
>> >> why I
>> >> asked you to explain how you could be getting build errors and still
>> >> say
>> >> that your code runs.
>> >>
>> >> Now, as for this:
>> >>
>> >> CType("da", SqlDataAdapter).Fill(Me.ds, "Employees")
>> >>
>> >> Why are your putting da in quotes here? This code doesn't pass the
>> >> Option
>> >> Strict check. da is the programmatic name of the object, so you
>> >> wouldn't
>> >> put its name in as a string. This is the exact problem that you are
>> >> having
>> >> when trying to dynamically set the DataAdapter name. You CANT'T take
>> >> a
>> >> string and cast it as a DataAdapter. And, maybe most importantly, why
>> >> are
>> >> you trying to cast da as a DataAdapter when it already is a
>> >> DataAdapter?
>> >>
>> >> CType("dg", SqlDataAdapter).SetDataBinding(ds, "Employees")
>> >>
>> >> And here, you are again placing the object name (dg) in quotes and
>> >> then
>> >> casting it to a DataAdapter? First dg is a DataGrid, not a
>> >> DataAdapter.
>> >> Second, even if it was a DataAdapter, you wouldn't put its name in
>> >> quotes,
>> >> because then you are trying to cast a string as a DataAdapter.
>> >>
>> >> Douglas, I understand what you are trying to do, but I think that you
>> >> are
>> >> going about this entirely the wrong way. As I look at the code you
>> >> posted,
>> >> I am first struck that you seem to have moved a lot of VS.NET
>> >> generated
>> >> code
>> >> around and put it in different places. While not illegal to do this,
>> >> I
>> >> can't understand why...it just makes everything much more difficult to
>> >> follow. I'm even trying to understand why you are launching your
>> >> application the way you are:
>> >>
>> >> > Public Shared Sub Main()
>> >> > System.Windows.Forms.Application.Run(New NortwindEmployee)
>> >> > End Sub
>> >>
>> >> Again, while not incorrect, wouldn't it easier to just set the form as
>> >> your
>> >> project's start up object?
>> >>
>> >> How many DataGrids and DataSets do you have? In your OP, you talk
>> >> about
>> >> DgMasterLists and DsMasterLists1and in your last post you talk about
>> >> dg
>> >> and
>> >> ds? If there really are 2, you need to post ALL of your code.
>> >>
>> >> So much of your code can be condensed or eliminated (which would make
>> >> things
>> >> so much easier). If you use the Forms Designer to draw out your
>> >> button
>> >> and
>> >> datagrid and set their respective properties in the properties window,
>> >> we
>> >> don't even have to look at their code (or move it around). It will
>> >> all
>> >> be
>> >> nicely contained in the Windows Forms Designer Generated Code and this
>> >> is
>> >> all you have to add to get the button and the grid up and running:
>> >>
>> >> --------------------------------------------------------------------------------
>> >> Private conStr As String = "workstation id=SEDNA;packet size=4096;" &
>> >> _
>> >> "integrated security=SSPI;data
>> >> source=(local);" & _
>> >> "persist security
>> >> info=False;initial
>> >> catalog=Northwind"
>> >>
>> >> Private selSQL As String = "SELECT EmployeeID, LastName, FirstName,
>> >> Title, "
>> >> & _
>> >> "TitleOfCourtesy,
>> >> BirthDate,
>> >> HireDate, Address, City, Region, " & _
>> >> "PostalCode, Country,
>> >> HomePhone,
>> >> Extension, Photo, Notes, " & _
>> >> "ReportsTo, PhotoPath FROM
>> >> Employees"
>> >>
>> >> Private con As New SqlConnection(conStr)
>> >> Private da As New SqlDataAdapter(selSQL, con)
>> >> Private ds As New DataSet
>> >> --------------------------------------------------------------------------------
>> >> Private Sub btnPush_Click(ByVal sender As System.Object, ByVal e As
>> >> System.EventArgs) Handles btnPush.Click
>> >> 'Fill DataAdapter
>> >> da.Fill(ds, "Employees")
>> >>
>> >> 'Bind DataGrid
>> >> dg.SetDataBinding(ds, "Employees")
>> >> End Sub
>> >> --------------------------------------------------------------------------------
>> >>
>> >> You don't even need the command object that you had made.
>> >>
>> >> *********Now that we've cleaned up the initial code, let's concentrate
>> >> on
>> >> the point of your original post....
>> >> I would not use the Click event of a listbox because this code would
>> >> run
>> >> everytime someone clicks the list (even if they click the same entry
>> >> as
>> >> last
>> >> time). Instead use the SelectedIndexChanged event handler of a
>> >> ComboBox
>> >> so
>> >> that you only run this when it's needed (more efficient).
>> >>
>> >> Private Sub lstMasterLists_SelectedIndexChanged _
>> >> (ByVal sender As System.Object, ByVal e As System.EventArgs) _
>> >> Handles lstMasterLists.SelectedIndexChanged
>> >>
>> >> 'Get the TableName from the selected item in the list box
>> >> 'and modify it to match an actual table name in the db
>> >> Dim strTbl As String = lstMasterLists.Text.Remove(0, 5)
>> >>
>> >> 'Each time a user selects a different table, re-populate the grid
>> >> with
>> >> that data
>> >> Dim newDA As New SqlClient.SqlDataAdapter(selSQL, con)
>> >> Dim newDS As New DataSet
>> >> newDA.Fill(newDS, strTbl)
>> >> dg.SetDataBinding(newDS, strTbl)
>> >> End Sub
>> >>
>> >> BOTTOM LINE: I don't see a need for you to worry about dynamically
>> >> naming
>> >> the DataAdapter at all, no one ever see's this. You only need to have
>> >> "a"
>> >> DataAdapter to use each time someone wants to see different table
>> >> data.
>> >> Instead, the name of the table being added to the dataset is what's
>> >> more
>> >> important and we can use your string to get that name.
>> >>
>> >> The problem (or last remaining issue) I see is that for different
>> >> tables,
>> >> you need a different SQL string. You could prepare these strings at
>> >> the
>> >> module level and using a simple case statement, figure out which is
>> >> needed:
>> >>
>> >> Dim OrdersSQL As String = "SELECT * FROM Orders"
>> >> Dim ProductsSQL As String = "SELECT * FROM Products"
>> >> Dim RegionSQL As String = "SELECT * FROM Region"
>> >>
>> >> Private Sub lstMasterLists_SelectedIndexChanged _
>> >> (ByVal sender As System.Object, ByVal e As System.EventArgs) _
>> >> Handles lstMasterLists.SelectedIndexChanged
>> >>
>> >> 'Get the TableName from the selected item in the list box
>> >> 'and modify it to match an actual table name in the db
>> >> Dim strTbl As String = lstMasterLists.Text.Remove(0, 5)
>> >>
>> >> Select Case strTbl
>> >> Case "LastName"
>> >> selSQL = OrdersSQL
>> >> Case "FirstName"
>> >> selSQL = ProductsSQL
>> >> Case "Title"
>> >> selSQL = RegionSQL
>> >> End Select
>> >>
>> >> 'Each time a user selects a different table, re-populate the grid
>> >> with
>> >> that data
>> >> Dim newDA As New SqlClient.SqlDataAdapter(selSQL, con)
>> >> Dim newDS As New DataSet
>> >> newDA.Fill(newDS, strTbl)
>> >> dg.SetDataBinding(newDS, strTbl)
>> >> End Sub
>> >>
>> >>
>> >> I have tested all the code I have given here and it works.
>> >> ================================================== ===========
>> >>
>> >>
>> >> "Douglas Buchanan" <dbuchanan52@hotmail.com> wrote in message
>> >> news:7217f9ea.0411150934.3f8758e2@posting.google.c om...
>> >> > Scott,
>> >> >
>> >> > Below is code that you you can run that illustrates the use of
>> >> > CType()
>> >> > to pass a string (with the same text as an existing DataAdapter) to
>> >> > type SqlDataAdapter so that it will refer to an actual exitsing
>> >> > DataAdapter of the same name.
>> >> >
>> >> > (You need SQL Server installed locally with the Northwind database ~
>> >> > Edit the connection string as needed.)
>> >> >
>> >> > === Start of code ===
>> >> > Imports System.Data.SqlClient
>> >> > Imports System.Windows.Forms
>> >> >
>> >> > Public Class NortwindEmployee
>> >> > Inherits Form
>> >> >
>> >> > 'Controls
>> >> > Friend WithEvents btn As New Button
>> >> > Friend WithEvents dg As New DataGrid
>> >> >
>> >> > 'Connection
>> >> > Private cn As New SqlConnection
>> >> >
>> >> > 'Command
>> >> > Private cmSel As New SqlCommand
>> >> >
>> >> > 'DataAdapter
>> >> > Private da As New SqlDataAdapter
>> >> >
>> >> > 'DataSet
>> >> > Private ds As New DataSet
>> >> >
>> >> > Public Shared Sub Main()
>> >> > System.Windows.Forms.Application.Run(New NortwindEmployee)
>> >> >
>> >> > End Sub
>> >> >
>> >> > Public Sub New()
>> >> >
>> >> > 'Control - Button
>> >> > btn.Location = New System.Drawing.Point(8, 8)
>> >> > btn.Name = "btn"
>> >> > btn.TabIndex = 0
>> >> > btn.Text = "Button1"
>> >> >
>> >> > 'Control - DataGrid
>> >> > dg.DataMember = ""
>> >> > dg.HeaderForeColor = System.Drawing.SystemColors.ControlText
>> >> > dg.Location = New System.Drawing.Point(8, 40)
>> >> > dg.Name = "dg"
>> >> > dg.Size = New System.Drawing.Size(280, 160)
>> >> > dg.TabIndex = 1
>> >> >
>> >> > 'ConnectionString
>> >> > cn.ConnectionString = "workstation id=SEDNA;packet
>> >> > size=4096;integrated security=SSPI;data source=(local);persist
>> >> > security info=False;initial catalog=Northwind"
>> >> >
>> >> > 'DataAdapter Commands
>> >> > da.SelectCommand = cmSel
>> >> >
>> >> > 'Select Command
>> >> > cmSel.CommandText = "SELECT EmployeeID, LastName, FirstName,
>> >> > Title, TitleOfCourtesy, BirthDate, HireDa" & _
>> >> > "te, Address, City, Region, PostalCode, Country, HomePhone,
>> >> > Extension, Photo, Not" & _
>> >> > "es, ReportsTo, PhotoPath FROM Employees"
>> >> > cmSel.Connection = cn
>> >> >
>> >> > End Sub
>> >> >
>> >> > Private Sub InitializeComponent()
>> >> >
>> >> > 'Form1
>> >> > AutoScaleBaseSize = New System.Drawing.Size(5, 13)
>> >> > ClientSize = New System.Drawing.Size(292, 206)
>> >> > Name = "NortwindEmployee"
>> >> > Text = "NortwindEmployee"
>> >> >
>> >> > End Sub
>> >> >
>> >> > Public Sub btn_Click(ByVal sender As System.Object, ByVal e As
>> >> > System.EventArgs)
>> >> >
>> >> > 'Fill DataAdapter
>> >> > 'da.Fill(Me.ds, "Employees")
>> >> > CType("da", SqlDataAdapter).Fill(Me.ds, "Employees")
>> >> >
>> >> > 'Bind DataGrid
>> >> > 'dg.SetDataBinding(ds, "Employees")
>> >> > CType("dg", SqlDataAdapter).SetDataBinding(ds, "Employees")
>> >> >
>> >> > End Sub
>> >> >
>> >> > End Class
>> >> >
>> >> > =====================
>> >> > In effect the code 'CType("da", SqlDataAdapter)' is asking the build
>> >> > engine to consider the string "da" as a SqlDataAdapter.
>> >> >
>> >> > As I see it the build engine does either one of these two things;
>> >> > A.) Either the build engine is telling me that "da" is text and you
>> >> > need to be aware of what you are doing (puts the error on the task
>> >> > list) - then goes ahead and assocaites the "da" with SqlDataAdapter.
>> >> >
>> >> > or
>> >> >
>> >> > B.) The build engine encounters the "da" and stops but goes on to
>> >> > tell
>> >> > me why it stops by putting the error on the task list.
>> >> >
>> >> > c.) If there is some other thing the build engine is doing I can't
>> >> > think of it.
>> >> >
>> >> >
>> >> > There are two reasons I think that the build engine does option 'A'.
>> >> > 1.) It works.
>> >> > 2.) There are other situations such as untyped datasets where code
>> >> > is
>> >> > not recognized until it is "compiled" - (You know how intellisense
>> >> > does not recognize objects that are not strongly typed?)
>> >> >
>> >> > So.... I am open for comments on thaking this direction.
>> >> >
>> >> >
>> >> > "Scott M." <s-mar@nospam.nospam> wrote in message
>> >> > news:<eO1Co$ryEHA.908@TK2MSFTNGP11.phx.gbl>...
>> >> >> Doug,
>> >> >>
>> >> >> I understand what you are trying to do and I will ask again that
>> >> >> you
>> >> >> post
>> >> >> ALL of your code (the short code). In what you have provided, we
>> >> >> do
>> >> >> not
>> >> >> see
>> >> >> the code that creates the DataAdapters. What I'm getting at here
>> >> >> is
>> >> >> that
>> >> >> this:
>> >> >>
>> >> >> CType(strDa, SqlDataAdapter).fill(DsMasterLists1, strTbl)
>> >> >>
>> >> >> even if it didn't throw an exception would not CREATE a DataAdapter
>> >> >> for
>> >> >> you.
>> >> >> It would only create a type. You must have an already instanced
>> >> >> DataAdapter
>> >> >> prior to this line that we can pass somewhere and refer to it as
>> >> >> the
>> >> >> value
>> >> >> of your string.
>> >> >>
>> >> >>
>> >> >>
>> >> >> "Douglas Buchanan" <dbuchanan52@hotmail.com> wrote in message
>> >> >> news:7217f9ea.0411141831.6383a4db@posting.google.c om...
>> >> >> > Scott,
>> >> >> >
>> >> >> > I'm sorry. I didn't make it clear enough. I'll explain.
>> >> >> >
>> >> >> > The code works because the DataAdapters already exists! I am just
>> >> >> > refering to its name by the text.
>> >> >> >
>> >> >> > The build engine informs me of build errors at the CType()
>> >> >> > statement
>> >> >> > because all it sees is that I am trying to turn text into a
>> >> >> > DataAdapter. The build engine doesn't compare that text to the
>> >> >> > name
>> >> >> > of
>> >> >> > the existing DataAdapter.
>> >> >> >
>> >> >> > This is what I did. (later... why I did it)
>> >> >> >
>> >> >> > I have these tables...
>> >> >> >
>> >> >> > lst01PrimaryOptions
>> >> >> > lst02SecondaryOptions
>> >> >> > lst03BusinsessSettings
>> >> >> > lst04FixedOptions
>> >> >> > ...
>> >> >> >
>> >> >> > When I made my DataAdapters I gave them these names...
>> >> >> >
>> >> >> > DaPrimaryOptions
>> >> >> > DaSecondaryOptions
>> >> >> > DaBusinsessSettings
>> >> >> > DaFixedOptions
>> >> >> > ...
>> >> >> >
>> >> >> > So if I take the table name and replace the first 5 letters with
>> >> >> > the
>> >> >> > letters "Da" I get the DataAdapter name.
>> >> >> >
>> >> >> > Why would I go thorugh this crazy string manipulation to arrive
>> >> >> > at
>> >> >> > an
>> >> >> > existing DataAdapter name?
>> >> >> >
>> >> >> > Because it saves me a hell of a lot of code!
>> >> >> > To replace 70 lines of code with only 5.
>> >> >> >
>> >> >> > Example:
>> >> >> > === Start of lengthy code (70 lines) ===
>> >> >> >
>> >> >> > Select Case sTableName
>> >> >> > Case "lkp01RefSource"
>> >> >> > da01RefSource.Fill(DsSelectionList1, "lkp01RefSource")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp01RefSource")
>> >> >> > Case "lkp02GrpCategory"
>> >> >> > da02GrpCategory.Fill(DsSelectionList1, "lkp02GrpCategory")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp02GrpCategory")
>> >> >> > Case "lkp03PrgmObjective"
>> >> >> > da03PrgmObjective.Fill(DsSelectionList1, "lkp03PrgmObjective")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp03PrgmObjective")
>> >> >> > Case "lkp06JobTitle"
>> >> >> > da06JobTitle.Fill(DsSelectionList1, "lkp06JobTitle")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp06JobTitle")
>> >> >> > Case "lkp07Qualification"
>> >> >> > da07Qualification.Fill(DsSelectionList1, "lkp07Qualification")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp07Qualification")
>> >> >> > Case "lkp08DayOfWeek"
>> >> >> > da08DayOfWeek.Fill(DsSelectionList1, "lkp08DayOfWeek")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp08DayOfWeek")
>> >> >> > Case "lkp09MealType"
>> >> >> > da09MealType.Fill(DsSelectionList1, "lkp09MealType")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp09MealType")
>> >> >> > Case "lkp10MerchandType"
>> >> >> > da10MerchandType.Fill(DsSelectionList1, "lkp10MerchandType")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp10MerchandType")
>> >> >> > Case "lkp11CommResource"
>> >> >> > da11CommResource.Fill(DsSelectionList1, "lkp11CommResource")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp11CommResource")
>> >> >> > Case "lkp12TelephonyDevice"
>> >> >> > da12TelephonyDevice.Fill(DsSelectionList1,
>> >> >> > "lkp12TelephonyDevice")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp12TelephonyDevice")
>> >> >> > Case "lkp13WwwType"
>> >> >> > da13WwwType.Fill(DsSelectionList1, "lkp13WwwType")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp13WwwType")
>> >> >> > Case "lkp14ModeOfContact"
>> >> >> > da14ModeOfContact.Fill(DsSelectionList1, "lkp14ModeOfContact")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp14ModeOfContact")
>> >> >> > Case "lkp15MsgTopic"
>> >> >> > da15MsgTopic.Fill(DsSelectionList1, "lkp15MsgTopic")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp15MsgTopic")
>> >> >> > Case "lkp16ScheduleType"
>> >> >> > da16ScheduleType.Fill(DsSelectionList1, "lkp16ScheduleType")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp16ScheduleType")
>> >> >> > Case "lkp17WeightGroup"
>> >> >> > da17WeightGroup.Fill(DsSelectionList1, "lkp17WeightGroup")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp17WeightGroup")
>> >> >> > Case "lkp18ProgramCategory"
>> >> >> > da18ProgramCategory.Fill(DsSelectionList1,
>> >> >> > "lkp18ProgramCategory")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "lkp18ProgramCategory")
>> >> >> > Case "lkp19Element"
>> >> >> > da19Element.Fill(DsSelectionList1, "lkp19Element")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "lkp19Element")
>> >> >> > Case "enm1FoodAllergy"
>> >> >> > daFoodAllergy.Fill(DsSelectionList1, "enm1FoodAllergy")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "enm1FoodAllergy")
>> >> >> > Case "enm2EnvironAllergy"
>> >> >> > daEnvironAllergy.Fill(DsSelectionList1, "enm2EnvironAllergy")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "enm2EnvironAllergy")
>> >> >> > Case "enm3MedicalAllergy"
>> >> >> > daMedicalAllergy.Fill(DsSelectionList1, "enm3MedicalAllergy")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "enm3MedicalAllergy")
>> >> >> > Case "enm4MedConcern"
>> >> >> > daMedConcern.Fill(DsSelectionList1, "enm4MedConcern")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1, "enm4MedConcern")
>> >> >> > Case "enm5ActivityRequest"
>> >> >> > daActivityRequest.Fill(DsSelectionList1, "enm5ActivityRequest")
>> >> >> > DgMasterLists.SetDataBinding(DsSelectionList1,
>> >> >> > "enm5ActivityRequest")
>> >> >> > Case Else
>> >> >> > TableErrorMessage()
>> >> >> > End Select
>> >> >> >
>> >> >> > === End of lengthy code ===
>> >> >> >
>> >> >> > === Start of Short code (5 lines) =====
>> >> >> >
>> >> >> > Dim strDa As String
>> >> >> > strDa = strTbl.Remove(0, 5)
>> >> >> > strDa = strDa.Insert(0, "Da")
>> >> >> >
>> >> >> > CType(strDa, SqlDataAdapter).fill(DsMasterLists1, strTbl)
>> >> >> > DgMasterLists.SetDataBinding(DsMasterLists1, strTbl)
>> >> >> >
>> >> >> > === End of short code ===
>> >> >> >
>> >> >> > (There are other advantages too)
>> >> >> >
>> >> >> > Back to my original question:
>> >> >> > The code works in debug mode.
>> >> >> > The exe works.
>> >> >> >
>> >> >> > Does anyone anticipate me having any problems with this after
>> >> >> > deployment?
>> >> >> > Does anyone suggest any other alturnatives?
>> >> >> > Does anyone suggest a way to stop the annoying build errors?
>> >> >> >
>> >> >> > Thank you,
>> >> >> > --Doug
>> >> >> >
>> >> >> >
>> >> >> > "Scott M." <s-mar@nospam.nospam> wrote in message
>> >> >> > news:<u5DK8ShyEHA.2036@TK2MSFTNGP12.phx.gbl>...
>> >> >> >> You say that you get an error and you say that the code works?
>> >> >> >> It
>> >> >> >> can't
>> >> >> >> be
>> >> >> >> both. Your problem is this line:
>> >> >> >>
>> >> >> >> CType(strDa, SqlDataAdapter).fill(DsMasterLists1, strTbl)
>> >> >> >>
>> >> >> >> Because "strDa" is an actual String object and string object
>> >> >> >> can't
>> >> >> >> be
>> >> >> >> converted to DataAdapter objects. I know that you want to wind
>> >> >> >> up
>> >> >> >> with a
>> >> >> >> DataAdapter named whatever "strDa" is named, but this command
>> >> >> >> won't
>> >> >> >> do
>> >> >> >> it.
>> >> >> >>
>> >> >> >> Somewhere else in your code you must be creating an instance of
>> >> >> >> a
>> >> >> >> DataAdapter. What are you calling that one? Let's see that
>> >> >> >> code.
>> >> >> >>
>> >> >> >>
>> >> >> >>
>> >> >> >> "Douglas Buchanan" <dbuchanan52@hotmail.com> wrote in message
>> >> >> >> news:7217f9ea.0411132218.bbe6b4@posting.google.com ...
>> >> >> >> >I am using the following code instead of a very lengthly select
>> >> >> >> >case
>> >> >> >> > statement.
>> >> >> >> >
>> >> >> >> > (I have a lot of lookup tables in a settings form that are
>> >> >> >> > selected
>> >> >> >> > from a ListBox. The data adapters are given a similar name to
>> >> >> >> > the
>> >> >> >> > table. Rather than making a long Select Case that could become
>> >> >> >> > obsolete if lookup tables are added and the source table of
>> >> >> >> > the
>> >> >> >> > ListBox is edited I came up with this code.)
>> >> >> >> >
>> >> >> >> > This code works but of course it gives me build errors.
>> >> >> >> >
>> >> >> >> > Error:[Value of type 'String' cannot be converted to
>> >> >> >> > 'System.Data.SqlClient.SqlDataAdapter'.]
>> >> >> >> >
>> >> >> >> > === code snippit ===
>> >> >> >> > Private Sub lstMasterLists_Click(ByVal sender As Object, _
>> >> >> >> > ByVal e As System.EventArgs) Handles lstMasterLists.Click
>> >> >> >> >
>> >> >> >> > 'To populate the dgMasterLists with the proper table
>> >> >> >> > '1. use the returned TableName to make the DataAdapter name
>> >> >> >> > '2. Convert the string to the DataAdampter type
>> >> >> >> >
>> >> >> >> > 'Get the TableName from the selected item in the list box
>> >> >> >> > Dim strTbl As String
>> >> >> >> > strTbl = Me.lstMasterLists.SelectedItem.ToString
>> >> >> >> >
>> >> >> >> > 'Make the DataAdapter name from the table name
>> >> >> >> > Dim strDa As String
>> >> >> >> > strDa = strTbl.Remove(0, 5)
>> >> >> >> > strDa = strDa.Insert(0, "Da")
>> >> >> >> >
>> >> >> >> > CType(strDa, SqlDataAdapter).fill(DsMasterLists1, strTbl)
>> >> >> >> > DgMasterLists.SetDataBinding(DsMasterLists1, strTbl)
>> >> >> >> >
>> >> >> >> > End Sub
>> >> >> >> > ======
>> >> >> >> >
>> >> >> >> > The code works in debug mode.
>> >> >> >> > The exe works.
>> >> >> >> >
>> >> >> >> > Does anyone anticipate me having any problems with this after
>> >> >> >> > deployment?
>> >> >> >> > Does anyone suggest any other alturnatives?
>> >> >> >> > Does anyone suggest a way to stop the annoying build errors?[/color][/color][/color]
