Visual Basic

Re: record like in pascal

2-Jan-08 9:17

Create either a Structure[^] or Class[^].

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

vykintasv2-Jan-08 11:18

vykintasv

2-Jan-08 11:18

Thanks! Structure is just what I was looking for Smile | :)

Vykintas

Re: record like in pascal

Colin Angus Mackay2-Jan-08 12:41

Colin Angus Mackay

2-Jan-08 12:41

Ro[CK]eT wrote:
Thanks! Structure is just what I was looking for

Be careful. A structure is a value type. That means it is copied each time you assign it to something (like a parameter in a method call). If the structure is large this could become a real performance hit.

Upcoming FREE developer events:
* Developer Day Scotland

Recent blog posts:
* Follow up on hiring a software developer
* The Value of Smaller Methods

My website | blog

My SQl adapter is not behaving normal

Vimalsoft(Pty) Ltd2-Jan-08 3:18

2-Jan-08 3:18

Good afternoon all

i have recently upgraded to SQL2005 from 2000, am using vb2003. when i develop am no longer using a wizard, especially on my database development.So now i have dropped a sql adapter on my form and follow the wizard as usual and let the adapter to generate the selected command, Updated command and deleted Command, but the adapter reports the Errors for all commands excluding the select, most of the time this will happen when the table has no primary key defined, but in my table, it is defined.

What could be the Problem.

Thanks

Vuyiswa Maseko,

Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding

VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za

Dave Kreskowiak2-Jan-08 5:16

2-Jan-08 5:16

You cannot use any Update, Delete, or Insert commands on a DataAdapter that is tied to a result set with no Primary Key. Your table MUST have a primary key AND the SQL Select command you gave MUST return the primary key field in it's result set in order for the other commands to work.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Vimalsoft(Pty) Ltd2-Jan-08 7:11

2-Jan-08 7:11

hi Dave,
what you are saying its true, but my query is returning a Primary key. here is the code in my Adapter.

SELECT Primary_ID, Boundary_area, Attrib_Code, Lis_Key, Func_Key, Actual_Extent, Improved_Value, Site_Value, Purchase_price, Purchase_date, prop_id, confidence_score, fin_ls_prediction, new_lis_key, new_func_key, Tshwane_Prediction, matchflag, source, flagtype, Property_id FROM Property_mass WHERE (SUBSTRING(Lis_Key, 1, 4) = @Lis_key)

And the Following is my Structure of my table.

USE [Tshwane_Valuations]
GO
/****** Object:  Table [dbo].[Property_mass]    Script Date: 01/02/2008 10:06:49 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Property_mass](
	[Primary_ID] [int] NOT NULL,
	[Property_id] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Boundary_area] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Attrib_Code] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Lis_Key] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Func_Key] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Roll_Remark] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[New_ADJ_Extent_1] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[New_ADJ_Extent_2] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Actual_Extent] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Improved_Value] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Site_Value] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Density] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[New_Net_Usable_Extent] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[New_Total_Land_Factor] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[New_Points_1] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[New_Points_2] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Purchase_price] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Purchase_date] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[source] [nvarchar](10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[owner_type] [nvarchar](30) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[prop_id] [float] NULL,
	[matchflag] [nvarchar](8) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[confidence_score] [float] NULL,
	[Tshwane_Prediction] [float] NULL,
	[fin_ls_prediction] [float] NULL,
	[new_lis_key] [nvarchar](174) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[new_func_key] [nvarchar](8) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[flagtype] [nvarchar](6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[SSMA_TimeStamp] [timestamp] NOT NULL,
	[Locked] [bit] NULL,
	[Lockedby] [varchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[Updatedby] [varchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
	[UpdateDT] [datetime] NULL,
 CONSTRAINT [Property_mass$PrimaryKey] PRIMARY KEY CLUSTERED 
(
	[Primary_ID] ASC
)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY]

GO
SET ANSI_PADDING OFF

.

Thanks Dave

Dave Kreskowiak2-Jan-08 7:34

2-Jan-08 7:34

Then you're going to have to post the exact error message you get and what the code setting up the DataAdapter looks like.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Vimalsoft(Pty) Ltd2-Jan-08 9:11

2-Jan-08 9:11

hi Dave here is my Error

http://nedsecurity.3host.biz/Adapter.htm[^]

thanks

Dave Kreskowiak2-Jan-08 9:32

2-Jan-08 9:32

That's hardly a descriptive error, but...

The reason it fails is because of the parameterized WHERE clause. The SqlCommandBuilder cannot use the WHERE clause you've specified. You'll have to generate the remaining commands yourself, leaving out the parameterized WHERE clause and specifying just the Primary Key in the WHERE clause and it should work. It also doesn't work with SELECT commands that return multiple result sets and/or gets data from multiple tables at once.

This is why I don't use the Wizards to do my data layers.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Vimalsoft(Pty) Ltd3-Jan-08 5:13

VB.NET Multithreading question [modified]

3-Jan-08 5:13

Thanks, i need to learn doing things without a wizard, i have grown .

Thanks

SimulationofSai2-Jan-08 0:49

SimulationofSai

2-Jan-08 0:49

Guys, I need an idea about implementing multithreading in vb.net.

Here's the scenario:

I've to bulk insert multiple (100's) of files into SQL Server. The list of files are stored in a table and there's an SSIS package that loops through the resultset and bulkloads each file. The downside to this approach is at any given time only one file is being loaded. I'd like to introduce parallelism into this approach. ( I can have multiple loops, but it breaks the workflow)
I redesigned the package to load multiple files into the db, but the structure is rigid. For example, if in a batch of 5 files loading simultaneously, if the first file were smaller and the rest very big, one connection would be idle until all have finished to exit out of the task.
To alleviate this, I thought of an approach that uses threading.

What I need:
An idea that uses a multithreading wherein there's a parent thread that loops through the list of files and assigns each file to child threads which do the bulk load. As soon as a child thread is done, it must notify the parent to give it the next file to load. The number if child threads must be user configurable.

Here are the questions:

1) Is the idea of any worth, if not, is there a better way of doing it?
2) I'm trying to use the ThreadPool class and callback delegates, is this correct? (I read from Marc's article that ThreadPool is not worth it's salt)
3) Would the Async callback method of the SQLCommand work?(I kinda figured that this is not feasible, since the callback delegate does not notify the success or failure of the query)
4) Any good articles that can goad me in the correct direction.

Requirement:
The VB.NET module must execute from within an SSIS Script task.
And it has to be in VB.NET, C# is not supported in SSIS scripts.

Hope I've been clear enough.

Thanks.

SG
Cause is effect concealed. Effect is cause revealed.

modified on Wednesday, January 02, 2008 9:16:45 AM

Re: VB.NET Multithreading question

Dave Kreskowiak2-Jan-08 7:44

Re: VB.NET Multithreading question

2-Jan-08 7:44

SimulationofSai wrote:
I'd like to introduce parallelism into this approach.

First question: Why? What's the point of doing multiple threads? One of the biggest misconceptions about multithreading is that is make the process run faster. In general, no, it doesn't. Depending on where the processing bottlenecks are, you might see a small performance benefit, you might not.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

SimulationofSai2-Jan-08 18:28

SimulationofSai

2-Jan-08 18:28

Because in a server with multiple hard drives and multiple CPU's, and with the SQL Server data files located in different volumes, the I/O might get divided across different processors.
I particularly refer to I/O because the most intensive operation in a BULKLOAD is I/O.

Executing 5 BULK LOAD commands in a single SQL connection uses only one processor, but splitting it across multiple connections actually fan out to different processors and cut short the load time. I know that it can only run as fast as the fastest I/O thats taking place.

Dave Kreskowiak wrote:
Depending on where the processing bottlenecks are, you might see a small performance benefit, you might not.

When I'm loading more than 250 files of 500MB each, I'd be willing to take any time gain thats available. A difference of 2 minutes gain for a couple of files might mean 2-4 hours gain for all my files.

SG
Cause is effect concealed. Effect is cause revealed.

Re: VB.NET Multithreading question

Dave Kreskowiak3-Jan-08 6:56

slow performance on 1st add new row to datatable

3-Jan-08 6:56

Fair enough.

It's possible to do with threads, but I'd probably think about managing my own thread pool for this, keeping the number of threads down to the number of processors in the box. I'd even consider "numProcessors - 1" given the length of time this operation takes. This would be to keep the SQL server free to do its work for other clients.

Now, I'm no expert in SSIS for sure. I have precious little experience with it. (I think this question might be geared more for the SQL forum and not the VB.NET forum.) But, from what I've read, I'd probably create a package that works with it's own connection and file, then terminates. A second, "master" package would then launch your VB.NET code, which organizes the files to be imported, manages it's own thread pool, and launches instances of a class that executes the first SSIS package.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Eunice (VB junior)1-Jan-08 22:32

Eunice (VB junior)

1-Jan-08 22:32

Hi Everyone,

I am writing a vb.net window application. I want to add some rows into datatable.
The problem I am having is when i first add a new row to the datatable, I get very
slow performance (20-30 second delay). The add to datatable works but I
get slow performance. Any record adds or deletes after this first add
are fast. I get slow performance on the first add. I have no idea what
is causing this slow performance. I cannot figure out what is
delaying the add. Any thoughts on where I might be going wrong?
Thanks in advanced.

Here is my codes:-

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
If myTable Is Nothing Then InitGrid()

Dim Row As DataRow
Try

For Each Row In myTable.Rows
If Row.Item("HBarCode").ToString = Me.txtHBarCode.Text Then
MessageBox.Show("Housing Serial Number already scanned.Duplicated.")
txtHBarCode.Focus()
Exit Sub
End If

If Row.Item("EMIBarCode").ToString = Me.txtEMIBarCode.Text Then
MessageBox.Show("EMI Serial Number already scanned.Duplicated.")
txtEMIBarCode.Focus()
Exit Sub
End If
Next

Row = myTable.NewRow()
Me.txtCounter.Text = myTable.Rows.Count + 1
Row.Item("HBarCode") = Me.txtHBarCode.Text
Row.Item("EMIBarCode") = Me.txtEMIBarCode.Text

'to check any colume without data, then only add row at myTable
If Me.txtHBarCode.Text.Trim.Length = 0 Then
MessageBox.Show("Please Scan in Housing BarCode.")
Me.txtHBarCode.Focus()
Exit Sub
End If

If Me.txtEMIBarCode.Text.Trim.Length = 0 Then
MessageBox.Show("Please Scan in EMI BarCode.")
Me.txtEMIBarCode.Focus()
Exit Sub
End If

myTable.Rows.Add(Row)
Me.txtHBarCode.Text = ""
Me.txtEMIBarCode.Text = ""
Me.txtHBarCode.Focus()

If Me.txtCounter.Text = Me.txtQty.Text Then
txtQty.Enabled = False
btnComplete.Enabled = True
txtHBarCode.Enabled = False
txtEMIBarCode.Enabled = False
End If

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

dgResult.Update()

End Sub

Public Sub InitGrid()

myTable = New DataTable("LotNumber")

Dim HBarCode As DataColumn = New DataColumn("HBarCode")
HBarCode.DataType = System.Type.GetType("System.String")
myTable.Columns.Add(HBarCode)

Dim EMIBarCode As DataColumn = New DataColumn("EMIBarCode")
EMIBarCode.DataType = System.Type.GetType("System.String")
myTable.Columns.Add(EMIBarCode)

ds = New DataSet
ds.Tables.Add(myTable)
dgResult.SetDataBinding(ds, "LotNumber")

End Sub

thanks,eunice

Re: slow performance on 1st add new row to datatable

Dave Kreskowiak2-Jan-08 7:37

2-Jan-08 7:37

There's nothing in the code you've posted that will do what you describe. You're going to have to step through the code in the Debugger, line-by-line, and step into all methods and functions (F11) to see on what line the code is hanging up. Set a breakpoint on the first line of the button Click event handler code and start from there.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

security issue

Tauseef A1-Jan-08 22:32

Tauseef A

1-Jan-08 22:32

hi guys

my application is not running under win.2000 though i have made intranet zone fully trusted , though i am not getting any exception on win xp, i am running exe from network path,,

what could be the cause, ?
thansk in advance
....
and second one i have win2000 virtual machine installed on my pc, but in the admin tools,
it doesnt show framework 2 configuration ,, thoug framework 2 is installed also on virtual machine ,,,

thanks again

hello

Re: security issue

Vimalsoft(Pty) Ltd2-Jan-08 3:01

how can i append one word file to another

2-Jan-08 3:01

hi

First is your application a .net APPLICATION? (MSI)FILE NOT eXE?

And what is the exception that you get when you try to run it in win 2000?

thanks

koolprasad20031-Jan-08 19:17

koolprasad2003

1-Jan-08 19:17

hello frnds,

i want to append one word file to another to anoter how can i do that ?

thankx in advance
koolprasad2003 Smile | :)

Be a good listener...Because Opprtunity knoughts softly...N-Joy

Re: how can i append one word file to another

Vimalsoft(Pty) Ltd2-Jan-08 3:06