|
Help you with what? You haven't said anything about what the problem is!
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi
some one give a button control which has two graphic cases ,, when mouse down , and when return up
thanks
jooooo
|
|
|
|
|
Sorry i typed the Address quickly ,, then sorry
jooooo
|
|
|
|
|
Gee, you asked so nicely...
There's probably one on the site, if not, it's very easy to write one.
Christian Graus - C++ MVP
|
|
|
|
|
Have you tried changing the Image property of the button in MouseDown and MouseUp events?
|
|
|
|
|
Hi
I need to add (INSERT) stock items to a SQL server Database of an ERP system. I import the new data from Excel and now need to change it to the correct data type before writing it to the server. In the ERP system documentation, for the stock table, they refer to 4 data types:
CHAR
INTEGER
DOUBLE
DATE
and after each data type, they have the length - E.g CHAR 3 for 3 charater text type field.
I have THREE questions:
1) Is there a way to do a SELECT statement, use DataAdapter.Fill and DataAdapter.FillSchema, and then display the datatypes of each column (i.e like ...GetType.Name.ToString or something?)
2) Is there a way to use the type information returned from the DataAdapter to set/cast the type of the data Imported from Excel before writing the new data into the database.
3) What are the VB.Net equivalent datatypes for CHAR 3, INTEGER 4, DOUBLE 6 DATE 8 etc.
PS I'm not too phased about the DATE, since this does not apply to my import, so that one is only for interest sake (and I always seem to struggle with dates...)
Cheers
Richard
|
|
|
|
|
Ok, I half answered my own question
I Created a new stock item using the ERP front end, then did a query to return this new item I have just created. I then looped through the columns as follows:
dtStkm is a the stock table, and dr2 is the row containing the new stock item.
<pre>
<code>
Dim dr2 As DataRow = dtStkm.Rows(0)
For i As Integer = 0 To dtStkm.Columns.Count - 1
dt.Rows(i).Item(0) = i
dt.Rows(i).Item(1) = dtStkm.Columns(i).ColumnName.ToString
dt.Rows(i).Item(2) = dtStkm.Rows(0).Item(i).GetType.Name.ToString
dt.Rows(i).Item(3) = dtStkm.Rows(0).Item(i).ToString.Length
dt.Rows(i).Item(4) = dtStkm.Rows(0).Item(i)
Next
Me.dgExcelData.DataSource = dt
</code>
</pre>
Questions:
1) Is the following returning the equivalent Vb.net datatype?: dtStkm.Rows(0).Item(i).GetType.Name.ToString
2) The Getype above returned 4 datatypes:
String (Many of these seem to be blank strings, but length = specified field len
DBNull
Double
Int32
DateTime
There are 187 fields in this table
2a) If I do an insert command, must I explicitly insert DBNULL for fields that are DBNULL, Explicitly insert Specific lenghts of Blank Strings for those that have blank strings. (it will be a HUGE INSERT Statment for 187 fields...)
2b) Will it be ok to use the datatypes that showed as a result of dtStkm.Rows(0).Item(i).GetType.Name.ToString.
2c) Since the I only need to populate 19 of the 187 fields with actual data, can anyone suggest an elegant way of doing this - perhaps pulling one row from the SQL server, then modifying the 19 fields, then writing that back?)
I am REALLY scared to insert somthing that may compromise the SQL database since this is our company's Live data...
Please help...
|
|
|
|
|
RichardBerry wrote: I am REALLY scared to insert somthing that may compromise the SQL database since this is our company's Live data...
This may sound totally stupid, but have you considered developing on a COPY of the database? That way you have a development/test database that looks like the live database, but you are free to completely bugger up when accidents happen (and they will happen).
RichardBerry wrote: DBNull
DBNull represents a null value in a database. The reason it does not return an actual null (or Nothing in VB.NET) is that in certain situations you need to be able to distinguish between nothing being returned and something being returned which happens to be null.
This means that the method you are using is not strictly correct becase the column that is returning DBNull may return some other type when the column contains a value.
RichardBerry wrote: (it will be a HUGE INSERT Statment for 187 fields...)
Yes, it will. You don't show how you intend to do the INSERT, but may I suggest that you use a parameterised query. That way .NET will handle the conversion between .NET types and the database types. All you have to worry about are the DBNull conversions - and that could be as easy as a method that takes an object and just returns that object unless it is null, in which case it returns DBNull.Value
RichardBerry wrote: 2c) Since the I only need to populate 19 of the 187 fields with actual data, can anyone suggest an elegant way of doing this - perhaps pulling one row from the SQL server, then modifying the 19 fields, then writing that back?)
Do you mean that each row contains pretty much the same data except for the 19 changed columns? Or do you mean that only 19 columns are populated and the rest are all null when the row is initially inserted?
If it is the latter, then may I suggest that you write an INSERT statement to just insert those 19 columns. For example, assume the following table has 20 columns, but only 3 need to be populated on insert:
INSERT TableName(Column1, Column2, Column3) VALUES (@value1, @value2, @value3)
|
|
|
|
|
Colin Angus Mackay wrote: This may sound totally stupid, but have you considered developing on a COPY of the database? That way you have a development/test database that looks like the live database, but you are free to completely bugger up when accidents happen (and they will happen).
OK, point taken - I should have a solution to this in a day or so, we are moving to a new server, so I will keep the old server for testing
Colin Angus Mackay wrote:
DBNull
The DBNULLS were returned on a record that is typical of all records (i.e. all our stock items do not use this field, so should be ok if a dbnull is written back for this field
Colin Angus Mackay wrote: Do you mean that each row contains pretty much the same data except for the 19 changed columns?
Yes, the values of all the fields are the same for each stock item, except for 19 fileds which are unique and contain data such as product code, standard cost, lead time etc.
Perhaps I can explain a bit about the code I have written (but NOT tested yet and you can suggest the best way of doing it)
First I create a datatable 'dtXlData' with 19 columns - datatype System.String
I then pull the Excel data into into this table.
'Import Data From EXCEL...
Dim cmd As New System.Data.OleDb.OleDbCommand("Select * from [ImportData$A:T]", conn)
Dim rdr As Data.OleDb.OleDbDataReader = cmd.ExecuteReader
Do While rdr.Read()
dr = dtXlData.NewRow
For col As Integer = 0 To 18
If rdr.IsDBNull(col) Then
dr.Item(col) = ""
Else
dr.Item(col) = rdr.GetValue(col).ToString
End If
Next
dtXlData.Rows.Add(dr)
Loop
Using above, i cannot really force different datatypes for each column, so that is why I pull everything in as String
I then pull one 'template' row from the SQL Server. This is dtStockm, and equate a datarow drStockm to a sample row from this table
I then loop through the dtXlData table and create an Insert Statement for each row of import data, alter the CommandText, and ExecuteNonQuery for each row of the new data. The code looks as follows:
Try
cn.Open()
For i = 0 To dtXlData.Rows.Count - 1
strInsertString = "stockm.on_order_qty, stockm.price, " _
& "stockm.weight, ..... to field 187" _
& "VALUES (" & dtXlData.Rows(i).Item(0) & "," _
& dtXlData.Rows(i).Item(1) & ","
& "," & drStkm.Item(0) .... to Field 187
cmd.CommandText = strInsertString
cmd.ExecuteNonQuery()
Next
From the above, you can see, that for the fields that are NOT changing, I'm using the values from the 'template' datarow (drStkm.Item(n) and for the 19 fields that DO change, I use the data from the Excel imported table (dtXlData.Rows(i).Item(n)). I think I need to still add a Ctype(drStkm.Item(n),Gettype(System.Data.Sqltypes.Chars)) for each of the 19 fields that get imported.
Is it ok to change the Command.Text while the connection is open, Or do I have to close the connection change the command text and re-open it for each row?
Is System.Data.Sqltypes.Chars the correct datatype for CHAR n?
Do you think this will work, or will a Parameterised query be easier?
Will the Datatypes of the 'Template' row be maintained and written back correctly? (I use DataAdapter.Getschema and DataAdapter.Fill when getting the 'template row from the SQL server)
Thanks for your help so far...
|
|
|
|
|
Hi
i want to make the interface of the program with two language ,,
already i designed the interface with two language by language,localizable properties ,
but how on the run mode i change the language >>
thanks for help .
jooooo
|
|
|
|
|
You may use String Tables (as a resource or a text file) and read all strings from that string table. Now to change the language, you just need to change the table from which the strings are taken!
|
|
|
|
|
Hi
thanks for response
Really , i can't do what did you tell me , but someone has told me the next line to do ,,
System.Threading.Thread.Currentculture.....("here language name")
but it donesn't work
>
jooooo
|
|
|
|
|
Hi,
We are developing windows application , I would like to know (Property or Coding) for find out the Default BOOT DISK ?.
1.If windows (OS-XP) files in C: then what is the default BOOT DISK?.
2.If windows (OS-XP) files in D: then what is the default BOOT DISK?
Thanks
Anandan k
Steadfast Technologies Services Pvt ltd.
|
|
|
|
|
The environment variable SYSTEMROOT will tell you where Windows is running from, or SYSTEMDRIVE will tell you the drive Windows is running from. Chec out the <a href="http://msdn2.microsoft.com/en-us/library/77zkk0b6(VS.80).aspx">Environment.GetEnvironmentVariable</a>[<a href="http://msdn2.microsoft.com/en-us/library/77zkk0b6(VS.80).aspx" target="_blank" title="New Window">^</a>] method to retrieve this value.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi,
Sub: How to find out the System BOOT Disk in Windows XP?
We have the Windows Application Developed by VB.NET.
Need: For Security purpose need to check one file in the Boot Drive.
Some Drive C: is the boot drive(Always).
Few Cases : Drive D or some one is the boot drive.
In this case how to find the System Boot Disk?
(Enviornment varible helps to find the System or Current Direcries)
In VB.NET Coding or any another way please let me know?
Advance Thanks
Anandan k
|
|
|
|
|
hi,
i wrote one vb.net service which checks for a set of conditions. if the condition fails, it gives a warning to the user asking him to fulfil the conditions within 30 minutes, failing which he will be forcebly logged off. after 30 mins, it checks taht condition again & does accordingly. (i used a msgbox to give that warning to the user).
it works well & good if he responds to the msgbox by clicking on it. if he doesn't respond at all, it throws an error saying that service cannot run & stops abruptly. i guess it is waiting for the user's response for that msgbox.
i am thinking of two options:
some other way (popup kind) to give warning to the user instaed of msgbox
start a separate thread for this kind of messages
i will be thankful for some light on these issues & a better solution.
|
|
|
|
|
It would help if you would display your code. But I'm thinking that you should use a Try Catch statement.
|
|
|
|
|
Hey everyone, well the title says it all. How do I delete all files in a folder? e.g. TEMP folder
PS: How would I display the results in a textbox of what is in that folder before i delete it? ( then i click a button to comfirm deletion)
|
|
|
|
|
Sadly, the answer is 'one at a time'. Directory.GetFiles will tell you the files, then you delete them one at a time.
SLRGrant wrote: PS: How would I display the results in a textbox of what is in that folder before i delete it?
Same way, show them what Directory.GetFiles returns, you can make that array of strings the datasource of a list control.
Christian Graus - C++ MVP
|
|
|
|
|
Christian Graus wrote: Sadly, the answer is 'one at a time'. Directory.GetFiles will tell you the files, then you delete them one at a time.
Does that mean that I couldnt create a program that could clean the computer like CCleaner for example? 
|
|
|
|
|
No, of course not. Why would it mean that ?
Christian Graus - C++ MVP
|
|
|
|
|
|
If you want to delete all the files in a folder, the best approach would be to use a for/next statement. use a listbox for your display as oppose to a textbox.
Dim di as new system.io.directoryinfo = "your directory" '(1)
Dim fi as system.io.fileinfo
for each fi in di.getfiles'(5)
'(4)
listbox1.items.add(fi.filename)
fi.delete '(2) (3)
'(4)
next
Note:
(1) You could use a folder browser dialog to establish the folder or for the user to establish the folder
(2) When testing, have a test folder filled with copies files or something.
(3) If you wished to display first then give the option of deleting, you could put a similar for/next statement under a button's click action or something and only have delete option.
(4) You could have an if statement here for certain paremeters
(5) In the brackets after getfiles, you can specify file type
Posted by The ANZAC
|
|
|
|
|
Cool, well thanks guys for all your help, I will fiddle about with the code and see what the result is 
|
|
|
|
|
I need to present an image file image in Access based on a 'file path and name' pointer in a database record. I am using OLE and I get one of two run-time error messages at the acOLECreateLink action. The first: (2793) "Microsoft Office Access can't perform the operation specified in the Action Property of the Visual Basic procedure you're trying to run." The second: (2786) "The OLE server doesn't support linking."
I can find nothing specific in the MSDN library. Help!
Michael J Wolfstone
It is always fun to learn new stuff!
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
