Visual Basic General Forum

Finding difficulty in assessing Future warning date

Tue, 24 Nov 2009 07:05:19 Z

Hi every one,

I made a programme through which I get a feed back clicking a button for a future warning date. I am giving the code below so that you can give me a easy solution. Let me explain what I have done. I took DateTimePicker to evaluate that. But the problem is, I have to take 12 DateTimePicker to do that job in a single form which is creating a saving problem means when I click save button it takes long time to save. Now, I thought If I can do it by using TextBox in a date format would easeup my save problem. Or it can be MaskedTextBox as well. Below is my code if any one can give me the solution.

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If DateTime.Now > DateTimePicker1.Value.AddYears(1).AddDays(1) Then
TextBox1.Text = ("Instuctor CAT Expired")
Else
End If
Instead of DateTimePicker I would like to do it by TextBox or MaskedTextBox which needs to be DateFormated to do that evaluation. I tried but could not find any good result. If any one can help

Private

Namespace AxWMPLib vs How to install wmp.dll

Wed, 25 Nov 2009 07:39:39 Z

Hi,

I want try code from WMP SDK that use namespace AxWMPLib.

VS 2008 says that namespace AxWMPLib is wrong.

I found that i need wmp.dll for it, but i havn't found it in windows\system32 (use server 2008)

I found that wmp.dll installing with Windows Media Player. I've found link and download WMP(http://www.microsoft.com/downloads/details.aspx?FamilyID=1d224714-e238-4e45-8668-5166114010ca&displaylang=en&Hash=QRNfA%2btEoqQvkuyyw%2fdd3rih%2fWmBiyB7QoeCik%2bRVPj%2bqquyeCPY6da2imoKWkAp5V3G7HjvwMaPIvI3viQLrw%3d%3d).
But i can't install it on Server 2008. I receive the message during installation process: "There are no any updates for your system". Install stopped after that.

What should I do? Are there anather ways to install wmp.dll into VS 2008?

Save field without displaying it on the VB form

Mon, 23 Nov 2009 21:48:57 Z

I have a VB 2008 windows application that I'm working on; the data are stored in SQL. I have a lot of fields that user will need to fill out. Some fields that not displayed on the form are actual combination of few filled out fields. For example - user types in first name, middle name and last name in 3 separate boxes on the form and I'd like to combine those and assign it to the "FullName" field. I know it's duplicating the data but this FullName field would need to be merged into report as is in a different program. Another example - user will pick a data in combo box that is binded to a different table, but I need it to auto-populate 3 fields in the main form (those fields are not displayed). I know that I can actually add all those hidden fields on the form and assign calculated values based on user input and then everything is saved with built-in "Update" command. I was wondering if there is a way to specify those few calculated values as parameters and still use "Update" command without actually typing long Update command. I have over 400 fields - very lengthy command.. Hope it makes sense. Thanks!

Hotkey

Wed, 25 Nov 2009 08:17:19 Z

Hello!
I want add hotkey functions in my console applications.
I'm adding

GetAsyncKeyState(Keys.LControlKey) Then
Console.WriteLine("Key pressed")
End If

It is working perfect.

How I can add two or more keys as shortcut?
E.g: Ctrl+a or Shift+a

Thanks for help!

Ramazan AKTOLU

Drown Down List in Data Grid View?

Thu, 19 Nov 2009 17:07:15 Z

In my MS Access database a certain column has been given a LookUp query so users can just select the appropriate entry from a drop down list.

How can I apply that same feature to a specific column in my table that is displayed through a data grid view control?

-Nothing to see. Move along.

vb6 on windows7 :Right to Left property

Wed, 25 Nov 2009 08:12:09 Z

Hello
I have Hebrew application in vb6 sp6 , i define the text property and forms to Right to Left =TRUE
wen i intall the app on windows 7
all the text behave like LEFT TO RIGHT

the regional settings on windows7 is heberw

how to solve th problem
best regards yacov

Need help to update source database - access

Mon, 23 Nov 2009 14:08:14 Z

I am developing a VB.Net windows application to replace a legacy Access database. I started with the legacy database (.mdb) and made changed to tables (like deleting unused columns) and changing anniversaries from 3 columns (day, month, and year) to DataTime etc. I recognized the need to import data from the legacy system at the time when the new one goes live and wrote an import dialog to do this. And this is where my problem is. The importer correctly imports the data and writes new tables, but each time I restart the application I have the old data back.

This is the approach I took:

In the load event I fill each tableadapter in the new (target) dataset as follows:

Me.ClientInfoTableAdapter1.Fill(Me.DataSet1.ClientInfo)

I Then populate a TreeView with nodes for each table name in the dataset by iterating the dataset

For Each table As DataTable In DataSet1.Tables

Dim nm As String = table.TableName

TreeView1.Nodes.Add(nm)

The user can choose a legacy database (.mdb file) using an OpenfileDialog, then ticks the tables (in the TreeView) that should be imported and presses the import button.

At this stage my code iterates the Treeview for each checked table name it instantiates a datatable as follows:

‘get a connection string to (source) legacy database

Dim fromConnection As String = GetFromConnection()

DataSet1.EnforceConstraints = False

For Each nd As TreeNode In TreeView1.Nodes

If nd.Checked Then

Dim tbl As DataTable = DataSet1.Tables(nd.Text)

ImportTable(fromConnection, tbl)

DataSet1.EnforceConstraints = True

If tbl.HasErrors Then

‘handle errors

Else

‘ If no errors, AcceptChanges.

tbl.AcceptChanges()

End If

The ImportTable method looks like this:

Public Sub ImportTable(ByVal conn As String, ByVal tbl As DataTable)

'tbl is destination table to update, conn is the source connection string

Table_Label.Text = tbl.TableName

Using connection As New OleDbConnection(conn)

connection.Open()

tbl.Clear()

ProgressBar1.Value = 0

Select Case tbl.TableName

Case "ClientInfo"

'handle New Clientinfo table changes

Import_ClientInfo(tbl, connection)

. . .

Case Else

'do generic (unchanged table) import

Import_Generic(tbl, connection)

End Select

End Using

End Sub

In the actual import method I use a reader to get the legacy data (in rows). I clear the destination table and add new rows to it (changing some data fields in the iteration. The following is an example:

Private Sub Import_ClientInfo(ByVal tbl As DataTable, ByVal conn As OleDbConnection)

Dim t As ClientInfoDataTable = CType(tbl, ClientInfoDataTable)

'count rows and setup progress bar, also use it to verify rows

SetmaxRows("ClientInfo", conn)

Dim reader As OleDbDataReader = GetReader(conn, "SELECT * FROM ClientInfo")

If reader IsNot Nothing Then

Dim index As Integer() = GetOrdinals(t, reader)

'these columns have been changed

'birthday was stored in 3 columns (d, m, y); is now one date column

Dim di As Integer = reader.GetOrdinal("ClientBirthdayDay")

Dim mi As Integer = reader.GetOrdinal("ClientBirthdayMonth")

Dim yi As Integer = reader.GetOrdinal("ClientBirthdayYear")

Dim bd As Integer = t.ClientBirthdayColumn.Ordinal

'these column names have changed

Dim si As Integer = reader.GetOrdinal("ClientSex")

Dim gi As Integer = t.ClientGenderColumn.Ordinal

index(gi) = si

'these are new columns

Dim pi As Integer = t.IsPersonColumn.Ordinal

If reader.HasRows Then

While reader.Read()

' Create a new DataRow.

Dim row As ClientInfoRow

row = CType(t.NewRow(), ClientInfoRow)

'set all new fields "IsPerson = True" row(pi) = True

'convert the day, month, year values to a date

row(bd) = Convert_Date(reader, di, mi, yi)

'fill the other matching columns

FillMatchingColumns(t, reader, index, row)

t.Rows.Add(row)

End While

End If

reader.Close()

End If

End Sub

On completion of this table control returns to the Import method which does a

tbl.AcceptChanges()

and on when the user is done the ‘OK_Button’ method of the dialog does a

Me.TableAdapterManager1.UpdateAll(DataSet1)

before closing.

Next time I run the application the imported changes are not there. What am I doing wrong? Obviously I have omitted code above to simplify the examples, but the concept is shown. Can someone please help me?

Ryn

Measuring Data

Wed, 25 Nov 2009 07:50:03 Z

Hi!

Just want to ask if its possible for me to measure how many bytes of data does a device sent to my computer using vb.net?

Thanks

DataSet Thread-Safety?

Fri, 02 Feb 2007 02:28:43 Z

I have a multi-threaded application with several datasets that are read/written to from a couple threads. I have read that datasets can handle multiple readers and one writer. I have synclocks around all dataset writes and no synchronization around reads. I am experiencing random "Index was outside the bounds of the array." exceptions where a dataset item is in a conditional statement, for example:

If CInt(CMPDAT.Tables(0).Rows(i).Item("ID")) = 0 Then

Do I need to synchronize read operations as well?

Any help would be greatly appreciated.

FaxServer on Vista and Windows 7

Tue, 24 Nov 2009 19:09:16 Z

I wrote a fax server obj that worked on windows xp. When it got moved a windows 7 machine, it does not work. What changed?

One issue is...

FaxServerObj.Folders.IncomingArchive.GetMessages(Fetch) ... this appears not to work because it is not reading any of the files.

Any help or suggestion would awsome.

Thanks
apalcer

Please help!

Wed, 25 Nov 2009 06:31:55 Z

Please Help!
'll show how to do that the form was moved to client area
I have tried via:
Insert a piece /
but error.
HELP PLEASE! DO NOT KNOW WHAT TO DO!

Transaction Question (vb.net 2008)

Thu, 19 Nov 2009 16:59:32 Z

Good Morning All,

I'm trying to run a transaction and I'm having some issues. What would cause a query to be executed before the transaction.commit() is called? Is there a specifice order that queries should be ran when working with a transaction? I have 1 update query that will always execute no matter what, before the .commit() is called. What would cause this?

Here's my code:

Dim myConnection As New MySqlConnection(myConnString)
myConnection.Open()

Dim myCommand As MySqlCommand = myConnection.CreateCommand()
Dim myTrans As MySqlTransaction

' Start a local transaction
myTrans = myConnection.BeginTransaction()

' Must assign both transaction object and connection
' to Command object for a pending local transaction
myCommand.Connection = myConnection
myCommand.Transaction = myTrans

Try

     myCommand.CommandText = sQry1 'Insert query
     myCommand.ExecuteNonQuery()

     myCommand.CommandText = sQry2 'Update query with 3 conditions Where-And-And
     myCommand.ExecuteNonQuery() 'Always executes no matter what(not supposed to)

     myTrans.Commit()

Catch e As Exception
'I have code here but removed so it can be easliy read.
End Try

Thanks in advance....

jb

VB 2005

Thu, 19 Nov 2009 19:40:27 Z

I am trying to uninstall VB express 2005 but keep getting an error that it can not complete. I have looked but could not find a place to reinstall to see if after that it will let me then uninstall it like many have suggested but can not locate an install place. I am trying to get it removed to see if it will then let me install SQL 2008 on my computer.

Deploying Connection String

Tue, 24 Nov 2009 12:41:48 Z

Hello,
I have a problem in the deployment of the same application to different customers.

Each customer has a different server name, so I need to be able to change the connection string without recompiling the application.
I have two issues :
1) which is the file that should be changed (I find several)
2) is this file always available at the customer after deployment ?

Let me explain a little more :
1) In the directory of the project that contains the connection string, I find several "looking-alike" files :
in the main directory, I find "app.config"
in the bin/debug, I find "xxxxx.vshost.exe.config" and also "xxxxx.dll.config"

Should I tamper with the bin/debug files or stick to the obvious "app.config" ?
Should I replace the connection string in the "app.config" file ? Manually ? Please help...

2) My application is in fact built with two levels :
- the main program that manages the user interface,
- the data-access program that contains the connection string
Is this good programming ? Should I consider revisiting this ?
Of course, the data-access program is compiled as a .dll. Since the connection string belongs to the data-access program, what happened to it ?
I'm using Click-Once. Should I change deployment tool ?
In the publishing directory, I see now my xxxxx.dll.deploy, but no connection string anywhere ??
How may I change it for various customers ?
Please help !!!

Thanks

How do I catch AD changes' events like password changes

Tue, 24 Nov 2009 18:17:46 Z

I am working on a personal project and I want to create a windows service (in VB.Net), that monitors changes in a local (on the same machine) Active Directory. Specifically I want to catch AD password changes so that I can update a database. There are some applications that do this so I know it is possible. Any help will be most appreciated.

Restroe mysql Database using vb.net

Wed, 25 Nov 2009 04:21:53 Z

here is my code that is use to restore mysql database using vb.net

but it is not working. i don`t unerstand what happend. please help me

Dim

process As New Process

process.StartInfo.FileName =

"C:\Program Files\MySQL\MySQL Server 5.1\bin\mysql.exe"

process.StartInfo.Arguments =

"-u root -p123456 < c:\player.sql"

process.StartInfo.UseShellExecute = False

process.StartInfo.RedirectStandardInput =

True

process.StartInfo.RedirectStandardOutput =

True

process.StartInfo.CreateNoWindow =

True

process.Start()

process.StandardInput.Write(

"root")

TextBox1.Text = process.StandardOutput.ReadToEnd

process.WaitForExit()

thank u

save textbox to disk in VB.NET?

Tue, 24 Nov 2009 23:29:21 Z

Hi I am wondering how to save a textbox contents to disk?? Using the MSDN help I was able to come up with this code so far. I have a menu strip item labled "save as." when I click it the prompt to allow you to pick a location to save comes up and it will save a text file to the selected location but the .txt file is blank. How do I set this code so that it knows to save the contents of the textbox. Thanks!!

        Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.Filter = "Text|*.txt"
        saveFileDialog1.Title = "Save File As"
        saveFileDialog1.ShowDialog()

        If saveFileDialog1.FileName <> "" Then
            Dim fs As System.IO.FileStream = CType _
               (saveFileDialog1.OpenFile(), System.IO.FileStream)
            fs.Close()
        End If

VB.net 2008 setup and deployment attempts to install Sql Server 2008 Express, when Sql Server 2008 enterprise installed

Wed, 25 Nov 2009 03:52:27 Z

Firstly. I posted this earlier but am unable to find it, so I am posting again

My VB.net 2008 windows forms app, setup and deployment project attempts to install SQL Server 2008 Express even though SQL Server 2008 Enterprise is already installed

How do I prevent this

I only want to install SQL Server Express 2008 when no other version of SQL Server 2008 is currently installed

Regards
Steve

save a button's coordinates to the database

Tue, 24 Nov 2009 13:47:59 Z

Hi guys,

Currently for the drag and drop button at run time, i am saving the button's coordinates and button text to the text file named button.text.

the below is the code for it.

 Using SW As New IO.StreamWriter(IO.Path.Combine(Application.StartupPath, "Buttons.txt"), False)
            For Each C As Control In PictureBox1.Controls
                If TypeOf C Is BlinkButton Then
                    If C.Tag = "NewBTN" Then
                        Dim Btn As BlinkButton = CType(C, BlinkButton)
                        SW.WriteLine(Btn.Text & "," & _
                                     Btn.Location.X & "," & _
                                     Btn.Location.Y)

                    End If
                End If
            Next
            SW.Flush()
            SW.Close()
        End Using

so now i'm actually trying to change the above method to saving the location and the button text in the database instead of the text file but i'm getting the error saying that there is object reference error.

I think the database cant save the button x and y coordinates in. Do any one have a idea how to do using the database method?

I am using this method to save the button coordinates and text in. The method is somewhat like the insert dsnewrow.

the method is below

 dsNewRow.Item("button_text") = BTN.Text
 dsNewRow.Item("button_text") = BTN.Location.X
 dsNewRow.Item("button_text") = BTN.Location.Y

 ds3.Tables("Coordinates").Rows.Add(dsNewRow)
 da3.Update(ds3, "Coordinates")

and the error points to the btn.text.

hope some one can help me with this as i'm new to VB.

Cheers!!

Role based menu

Mon, 23 Nov 2009 12:04:29 Z

How to enable / disable menu items based on allowed security roles specified for an item.

return values to the calling form

Tue, 24 Nov 2009 05:09:15 Z

I have a form which calls other form to achieve some functionality. How can I pass values obtained on other form to the calling form?

Unable to retain data in DataRepeater

Tue, 24 Nov 2009 07:04:41 Z

Hi,

I am manully adding data to DataRepeater, but once scrolling up and down, the data is vanished.
I have only a text box in the item template. Can any one see what's wrong?

DataRepeater1.AddNew()
DataRepeater1.CurrentItem.Controls("txt1").text="yehaa"

How To Change Code For Communication USB Port in VB6 to VB.NET?

Wed, 25 Nov 2009 00:57:09 Z

I have 1 project to comunication with usb port in VB.NET.But now,i have code VB6 and then i want to change the code VB6 to VB.NET.can any body to help me for change the code to VB.NET?please email: eifadan_89@yahoo.com.my
This is code in VB6:

    Dim id As Integer
    Dim status As Integer
    Dim res As Integer
    Dim buf As String * 100
    Dim result As Long
    Dim setting As Long
    Dim strres As String * 80
    Dim actual As Long
    Dim datalen As Long
    Dim retcnt As Integer
    Dim siclAddr As String
    Dim info As usbinfo
    Dim capinfo As usbcapinfo

    ' Change the value of siclAddr to refer to the USB device of
    ' your choice. Note that for simplicity, we are using an
    ' alias name rather than the much longer standard open string.
    ' Consult the Agilent Connectivity Expert for the interface names
    '    and instrument addresses on your PC.
    siclAddr = "USB1"

    strres = " "
    buf = "SENS:DIG:DATA:BYTE? (@101)" + Chr$(10)
     datalen = Len("SENS:DIG:DATA:BYTE? (@101)" + Chr$(10))
'   datalen = Len(buf)
    id = iopen(siclAddr)
    status = iwrite(id, buf, datalen, 1, 0&)
    status = iread(id, strres, 80, 0&, actual)
    'MsgBox "Result is: " + strres, vbOKOnly, "Channel Input"

    status = iclose(id)
    Label5.Caption = strres

How to change this VB cord to VB.net cord

Wed, 30 Apr 2008 08:58:52 Z

Option Strict Off

Option Explicit On

Friend Class util7260

Inherits System.Windows.Forms.Form

Dim status(7) As Byte

Dim do_data(1) As Integer

Private Sub DOP0_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DOP0.Click

Dim Index As Short = DOP0.GetIndex(eventSender)

Dim v, i, d As Short

Dim Port As Short

Port = Fix(Index / 8)

d = 2 ^ (Index Mod 8)

If status(Index) = 1 Then

do_data(Port) = do_data(Port) - d

DOP0(Index).Image = Image0.Image

status(Index) = 0

Else

do_data(Port) = do_data(Port) + d

DOP0(Index).Image = Image1.Image

status(Index) = 1

End If

v = DO_WritePort(card, Port, do_data(Port))

End Sub

Private Sub util7260_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

Dim i, result As Short

SettingForm.ShowDialog()

If card < 0 Then

MsgBox("Register Card Failed")

End

End If

For i = 0 To 7

status(i) = 0

do_data(0) = 0

End Sub

Private Sub util7260_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

Dim result As Short

If card >= 0 Then

result = Release_Card(card)

End If

End

End Sub

Public Sub mnuExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuExit.Click

Dim result As Short

If card >= 0 Then

result = Release_Card(card)

End If

End

End Sub

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick

Dim result As Short

Dim di_data As Integer

Dim i As Short

Dim p As Short

Dim Port As Short

Port = 0

result = DI_ReadPort(card, Port, di_data)

For i = 0 To 7

p = di_data Mod 2

If p = 0 Then

DI0(Port * 8 + i).Image = Image0.Image

Else 'p = 1

DI0(Port * 8 + i).Image = Image1.Image

End If

di_data = CShort(Int(di_data / 2))

End Sub

End Class

Dynamic IF statements

Tue, 24 Nov 2009 18:39:50 Z

I have a project that requires data from a csv file to be manipulated into a new csv file. While some of the manipulation is simply straight mapping of data from the input csv to the output csv, the more complex part of the project is the dynamic IF statement requirement for some mappings. For this, the project requires some mappings to execute a series of IF..THEN..ELSE statements but the kicker is the user should be in full control of these statements. By full control, I mean each mapping should be visible to the user and he can add, subtract, or modify IF clauses per mapping. Is this possible in .Net and if so, how would I go about doing it? Examples are appreciated.

-Thank you

Printing to LPT1 in vb.net 2003

Tue, 10 Nov 2009 15:24:21 Z

I am writing a POS application using vb.net 2003 and need to print 3 or 4 lines of information (complete with formatting instructions) to an attached parallel printer. Here are the specifics:

1. Printer is a Practictical Automation CLTX2003 parallel thermal printer
2. Formatting instructions accomplished using Friendly Ghost Language (FGL)
3. No dialog boxes should open for user confirmation or input
4. Would prefer to print each line (with its formating instructions) directly to the printer

If there is someone who is able to help with the code (including all declarations) I would greatly appreciate it. I have tried using Open "LPT1:" As #1 . . . . and all I get is several items shown as "Undeclared".

Tired of going home with a headache!!!!

Visual Basic Application with Microsoft Sync Framework 2.0 ADO.NET

Tue, 24 Nov 2009 23:11:28 Z

I am creating a Visual Basic 2008 .net application that will be using the Sync Service for ADO.NET on Windows 7 Ultimate. The back end database is SQL 2008. Below are the basic steps I take when the error occurs

a. Add a Local Database Cache item to my application
b. Use the Configure Data Synchronication wizard for the setup process
c. Click the OK button to accept changes
d. An error message is generated, "The given key was not present in the dictionary".

I have attempted this several times and the error message presists no matter how I vary the options. I have also installed Microsoft Sync Framework 2.0 successfully but the error persists. I also have all the following Dlls referenced in my project:

Microsoft.Synchronization.dll,
Microsoft.Synchronization.Data.dll,
Microsoft.Synchronization.Data.Server.dll,
Microsoft.Synchronization.Data.SqlServer.dll,
Microsoft.Synchronization.Data.SqlServerCe.dll.

I am sure I don't need all of these references but I figured it does not hurt to have them all referenced for now. I have the latest OS service and Visual Studio 2008 service packs.

If you have any input please let me know.

Detect ODBC driver/connector is installed

Tue, 24 Nov 2009 22:25:25 Z

Hi,

I currently connect to a MySQL database using the ODBC MySQL 5.1 Connector, how would I be able to detect if the driver is installed before a connection attempt?

Thank you for any assistance

Kind Regards,
Carl

Binding a Single Column to a DataGridView

Tue, 24 Nov 2009 21:36:07 Z

All;

In previous versions (VB.NET 2003) I would do

    datagrid.datasource = dataset.tables(0)
    datagrid.datamember = "Column1" 'Where this is the name of the column

This would show me just that column in the grid regardless of the number of columns in the dataset.

In VB.NET 2008 I do:

    datagridview1.datasource = dataset.tables(0)

I see all the columns.

I then add:

    datagridview1.datamember = "Column1" 'Where Column1 is the column name

I then have an empty grid. How does one get only a single column to show in the grid from a multi-column data source? I am using internal code to populate the datasets and tables.

Many thanks.

John Ferry

Unable to load one or more of the requested types. Retrieve the LoaderExceptions property for more information.

Mon, 23 Nov 2009 14:43:35 Z

Does anyone know what the problem is with this error message?

	One or more errors encountered while loading the designer. The errors are listed below. Some errors can be fixed by rebuilding your project, while others may require code changes.
Unable to load one or more of the requested types. Retrieve the LoaderExceptions property for more information. Hide
at System.Reflection.Module._GetTypesInternal(StackCrawlMark& stackMark) at System.Reflection.Assembly.GetTypes() at Microsoft.VisualStudio.Shell.Design.AssemblyObsoleteEventArgs..ctor(Assembly assembly) at Microsoft.VisualStudio.Design.VSDynamicTypeService.ReloadAssemblyIfChanged(String codeBase) at Microsoft.VisualStudio.Design.VSDynamicTypeService.CreateDynamicAssembly(String codeBase) at Microsoft.VisualStudio.Design.VSTypeResolutionService.AssemblyEntry.get_Assembly() at Microsoft.VisualStudio.Design.VSTypeResolutionService.AssemblyEntry.Search(String fullName, String typeName, Boolean ignoreTypeCase, Assembly& assembly, String description) at Microsoft.VisualStudio.Design.VSTypeResolutionService.SearchProjectEntries(AssemblyName assemblyName, String typeName, Boolean ignoreTypeCase, Assembly& assembly) at Microsoft.VisualStudio.Design.VSTypeResolutionService.GetType(String typeName, Boolean throwOnError, Boolean ignoreCase, ReferenceType refType) at Microsoft.VisualStudio.Design.Serialization.CodeDom.AggregateTypeResolutionService.GetType(String name, Boolean throwOnError, Boolean ignoreCase) at Microsoft.VisualStudio.Design.Serialization.CodeDom.AggregateTypeResolutionService.GetType(String name) at System.ComponentModel.Design.DesignerHost.System.ComponentModel.Design.IDesignerHost.GetType(String typeName) at System.ComponentModel.Design.Serialization.CodeDomDesignerLoader.EnsureDocument(IDesignerSerializationManager manager) at System.ComponentModel.Design.Serialization.CodeDomDesignerLoader.PerformLoad(IDesignerSerializationManager manager) at Microsoft.VisualStudio.Design.Serialization.CodeDom.VSCodeDomDesignerLoader.PerformLoad(IDesignerSerializationManager serializationManager) at System.ComponentModel.Design.Serialization.BasicDesignerLoader.BeginLoad(IDesignerLoaderHost host)

Using .Replace to replacing an ampersand

Tue, 24 Nov 2009 22:26:00 Z

I am running the following code but it is not replacing it:

        Dim stItemName As String = txt1.Text
        stItemName.Replace("&", "")
        txt2.Text = stItemName

Any idea why? Thanks

Use VB.NET to retrieve SQL data.

Mon, 23 Nov 2009 20:16:52 Z

Hello everyone, i've come to the place where i don't know what to do, so i'm asking you. Preety much, i need help with my VB.NET application to be used with SQL.
I will write here i want to do:

1. user writes he's details (textbox1 for username, textbox2 for password)
2. user hits "Login"
3. application tries to retrive data from sql server. (in this case localhost/127.0.0.1)
4. application retrieves data from test/tables/members
5. if the specified account information matches the servers data, it will let you through to the next form. Else, it will give an error that the user/pass is incorrect.

Now look, the table looks like this

[id] | [username] | [password]
1 username password

OR look here at the picture: http://img697.imageshack.us/img697/2931/sqlsetup.png

Thanks for all help everyone!

Windows Forms, Master-Detail insert error

Mon, 23 Nov 2009 13:50:12 Z

I have one SQL Server database with two tables:
CREATE TABLE [dbo].[Invoice]
(
    [IdInvoice] [int] IDENTITY(1,1) PRIMARY KEY,
    [Customr] [varchar](50) NOT NULL,
    [InvoiceDate] [smalldatetime] NOT NULL
);

CREATE TABLE [dbo].[InvoiceDetails]
(
    [IDInvoiceDetails] [int] IDENTITY(1,1) PRIMARY KEY,
    [IdInvoice] [int] NULL REFERENCES Invoice(IDInvoice),
    [ProductName] [nvarchar](50) NOT NULL,
    [Q] [int] NOT NULL,
    [UnitPrice] [int] NOT NULL
);

My VB 2008 Windows Forms project have:
- one dataset with this two table plus InvoiceDetails.IdInvoice (FK) -> Invoice.IdInvoice (PK) relationship,
- Form1 with some TextBoxe's linked to master table: Invoice,
- Form1 with one DataGridView linked to Invoice.InvoiceDetails (relationship from Invoice),
- xxxBindingSource and xxxTableAdapter and TableAdapterManager components.

Form1 works fine if I want to update data.

Source code for saving data in Form1:
Me.Validate()

Me.FacturaBindingSource.EndEdit()
Me.FacturaTableAdapter.Update(Me.TestDataSet.Factura)

Me.ProdusFacturatBindingSource.EndEdit()
Me.ProdusFacturatTableAdapter.Update(Me.TestDataSet.ProdusFacturat)

Problem: when I want to insert data in Invoice & InvoiceDetails tables I receive the next error:
The INSERT statement conflicted with the FOREIGN KEY constraint "FK_InvoiceDetails_Invoice". Th conflict occurred in database "Test", table "dbo.Invoice", column "IdInvoice".

Invoice.IdInvoice field have INT datatype with IDENTITY(1,1) property .

Thank you,

SQL Bulk Copy Timeout

Tue, 24 Nov 2009 16:56:55 Z

Hi, I'm using sqlbulkcopy to load data into a sql2008 database, and we're getting timeout errors loading larger tables. Some tables which were loading OK are failing since indexes have been added to them. The source data is a Informix datareader. I've tried setting large values in both the connection timeout and the sqlbulkcopy.bulkcopytimeout, but the timeout usually occurs within 60 seconds, well below the timeout values I've set (240 secs). I've tried setting the .bulcopytimeout property to zero but it makes no difference. Very occasionally a load will take place - the last large table to load took 7 minutes.

So I suspect the problem is somewhere else - any clues gratefully received - here's the code. I've reduced the batch size to 500.

The documentation on bulkcopytimeout that I have found does not describe what the property actually means - is it the maximum time to complete the entire copy or to complete one batch or what ?

Here's some extracts from my error log - the first shows a successful large table load, follow by timeout failures.

24/11/2009 10:59:01
Level : Information
MISLoad - Starting load from Mach4 to ParagonMIS of all selected tables
---------------------------------------
24/11/2009 11:07:38
Level : Warning
MISLoad - table load warning.
Row count mismatched for stockmove - 4730598 rows read, 4730627 rows written
---------------------------------------
24/11/2009 11:07:38
Level : SuccessAudit
MISLoad - Successful load from Mach4 to ParagonMIS of all selected tables

24/11/2009 11:09:46
Level : Information
MISLoad - Starting load from Mach4 to ParagonMIS of all selected tables
---------------------------------------
24/11/2009 11:10:17
Level : Error
MISLoad - table load failed.
Microsoft SQL Server Exception in MISLoadClasses.BulkCopy of table poline -
System.Data.SqlClient.SqlException: Timeout expired. The timeout period elapsed prior to completion of the operation or the server is not responding.
   at System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection)
   at System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection)
   at System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj)
   at System.Data.SqlClient.TdsParser.Run(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj)
   at System.Data.SqlClient.SqlCommand.RunExecuteNonQueryTds(String methodName, Boolean async)
   at System.Data.SqlClient.SqlCommand.InternalExecuteNonQuery(DbAsyncResult result, String methodName, Boolean sendToPipe)
   at System.Data.SqlClient.SqlCommand.ExecuteNonQuery()
   at MISLoadClasses.BulkCopy.LoadData(String TableName, Int32 intBulkCopyTimeout, Int32 intBulkCopyBatchSize)
---------------------------------------
24/11/2009 11:10:52
Level : Error
MISLoad - table load failed.
Microsoft SQL Server Exception in MISLoadClasses.BulkCopy of table wodet -
System.Data.SqlClient.SqlException: Timeout expired. The timeout period elapsed prior to completion of the operation or the server is not responding.
   at System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection)
   at System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj)
   at System.Data.SqlClient.TdsParserStateObject.ReadSniError(TdsParserStateObject stateObj, UInt32 error)
   at System.Data.SqlClient.TdsParserStateObject.ReadSni(DbAsyncResult asyncResult, TdsParserStateObject stateObj)
   at System.Data.SqlClient.TdsParserStateObject.ReadNetworkPacket()
   at System.Data.SqlClient.TdsParserStateObject.ReadBuffer()
   at System.Data.SqlClient.TdsParserStateObject.ReadByte()
   at System.Data.SqlClient.TdsParser.Run(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj)
   at System.Data.SqlClient.SqlCommand.RunExecuteNonQueryTds(String methodName, Boolean async)
   at System.Data.SqlClient.SqlCommand.InternalExecuteNonQuery(DbAsyncResult result, String methodName, Boolean sendToPipe)
   at System.Data.SqlClient.SqlCommand.ExecuteNonQuery()
   at MISLoadClasses.BulkCopy.LoadData(String TableName, Int32 intBulkCopyTimeout, Int32 intBulkCopyBatchSize)
---------------------------------------

Here's the core of the code - I'm setting the bulktimeout and batch sizes using parameters that are set by the user and passed in to this routine - this routine is within a loop that passes the names of the tables to load.

Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(GlobalData.misDbConnectString, SqlBulkCopyOptions.TableLock)

bulkCopy.BatchSize = intBulkCopyBatchSize

bulkCopy.DestinationTableName =

"dbo." & TableName

bulkCopy.BulkCopyTimeout = intBulkCopyTimeout

' Write from the source to the destination.

bulkCopy.WriteToServer(reader2)

End Using

Async web service call within console app problem

Tue, 24 Nov 2009 22:00:06 Z

I have a console app that is supposed to async call a web service...i don't get any errors but the completed handler doesn't seem to complete correctly. I have a subroutine with a loop that is supposed to fire off say 6 seperate calls to another routine that calls the service. The completed event handler routine puts data into the database..If i put a thread.sleep under the call to the routine calling the web service. The completed event handler fires but only one record is put in the database instead of the hundreds expected and only that one webservice call appears to fire...

I should mention that this works as expected when calling the sync method of the web service within a console app and the asyc calls work as expected from a windows forms app.

I just need it to work async within a console app..

Please help as im tearing my hair out...

thanks Ang

ang

DatePicker doesn't display binding data correctly

Mon, 23 Nov 2009 21:38:21 Z

I have a VB 2008 application with multiple DataPicker fields. The data is binded to SQL database. On the form load I set the checkBox for each date to false if there is no date in the field. Noticed that if I make changes to some dates for record 1 in the table, save it and scroll to the next record - I see the date that I just changed for record 1 - also on records 2 and 3. Why is it happening? I don't have that problem if I use text fields to display the dates. Is there some steps that I'm missing?
I had encountered the same problem with different project and just switched to text boxes. With this new project - thought I'd give it another try - may be there is a simple way to fix it. Thanks!

VB.Net SQL Subquery

Mon, 23 Nov 2009 17:24:12 Z

I need to design an SQL query based on the following, but I can't seem to see it in my head.

Table1
CustomerID    CustomerInfo

Table2
CustomerID    RecordID     DateTime

Table3
CustomerID    RecordID     ProductID     Quantity

Given a certain CustomerID, I want to individually sum the product quantities in Table3 based on the records in Table2 that are within a range of dates.

I think I can do this with subqueries, but am having trouble with the design.

Property of DataGridView Control for adjusting column width as per the data population

Tue, 24 Nov 2009 19:10:04 Z

Once I read the property for DataGridView Column which allows Grid Column to adjust as per the data width. I can not recall it or find it.

Do you know that property?

where is my pre-edited data in the datagridview?

Sun, 11 Oct 2009 15:09:30 Z

   ' Here is where i load my datagridview 
   Private Sub OE_Prices_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.dgPrices.AutoGenerateColumns = False
       ' Let's assume that the query is this:
       '      select 'a' as col1,'1.00' as col2 union
       '      select 'b' as col1,'2.00' as col2 union
       '      select 'c' as col1,'3.00' as col2
        Me.dgPrices.DataSource = My.Utilities.GetDataTable(My.Utilities.Query_OEPrices)
    End Sub

       ' Here is the function that return the datatable
    Public Function GetDataTable(ByVal sql$) As DataTable
        Dim ans As New DataTable
        Dim sa As New SqlClient.SqlDataAdapter(sql, ConnectionString)
        sa.Fill(ans)
        sa.Dispose()
        Return ans
    End Function

After the user makes changes to certain cells, i wish to interrogate the grid to see if there are any changes to any cells.
My approach is to compare the current content to the original content.
I cannot seem to find where the system stores the original content.

for example: The content of the current cell (0,0) is dgPrices.Rows(0).Cells(0).value
where is the original content of that cell?

I have tried looking in ctype(dgprices.datasource,DataTable).Rows(0).Item(o) but it seems to contain the already modified version of the data.

I know i can clone the original data table and use this for comparrison, but there must be a cleaner way to do it.
I also know i can use a binding source to get at the different versions of the data but since i am using a straight datatable as the datasource, I dont know how to get at the binding source.

Any Ways
Thank you up front
Jerry Cicierega

Upon viewing generated csv file preceding number zero is missing?

Sun, 22 Nov 2009 09:59:17 Z

Hi,

I've been developing an export program which generate a csv file.

Column_A, Column_B, Column_C
00014, Sample, test

Now upon this data is viewed in csv the trailing zero from column_A is gone. it becomes 14.
I revise the writing of data from Column_A which if the start of it is zero i insert a single quote. Upon viewing it in csv i got a '00014 which single quote is visible. how can i remove this single quote? which i expected to view it 00014 only in csv file.

any trick ideas? please help.

THank you very much.

Jeff®