Visual Basic

Henry Minute4-Jul-09 0:11

4-Jul-09 0:11

Do a Google (or Bing, or whatever) search for windows management information hdd serial or wmi hdd serial. It is quite complex, but there are loads of articles around describing how to use it, such as Retrieving hardware information with WMI[^].

Good Luck! Smile | :)

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Vikash Yadav4-Jul-09 0:33

Vikash Yadav

4-Jul-09 0:33

There is no Code

How i can get serial no of HDD, CPU, Motherboard

Thanks & Regards

Form :-
Vikash Yadav

Christian Graus4-Jul-09 0:35

Christian Graus

4-Jul-09 0:35

The person who replied to you, assumed you were a programmer and not just another guy who is looking to charge for a ton of code he copied and pasted, and does not remotely understand. Stupid of him, really....

Christian Graus

Driven to the arms of OSX by Vista.

"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.

I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp

Henry Minute4-Jul-09 0:39

4-Jul-09 0:39

You put it so much better than I could have! Laugh | :laugh:

Re: 3D project for VB.Net

Christian Graus4-Jul-09 15:10

Christian Graus

4-Jul-09 15:10

*grin*

3D project for VB.Net

phowarso3-Jul-09 20:29

phowarso

3-Jul-09 20:29

Can we create a 3D project in VB.Net?
If we can, please express me any project or some codes...
thank you Smile | :)

Henry Minute4-Jul-09 0:13

Re: 3D project for VB.Net

4-Jul-09 0:13

phowarso wrote:
Can we create a 3D project in VB.Net?

If you mean what I think you mean, then yes.

phowarso wrote:
If we can, please express me any project or some codes...

Please express me $10,000

Is Bing broken where you are?

thank you Smile | :)

LloydA11111-Jul-09 1:43

LloydA111

11-Jul-09 1:43

Direct X

If everything was not true, would it be not true that everything is not true?

<font color="red">"Assembly.<br /> Ah, yes that dreaded thing that pulled itself out of the abyss. <br />-- Wait, assembly is not that bad. It just takes time to adjust to."</font>

enumerate Microsoft sql server instance in local network

Rupesh Kumar Swami3-Jul-09 5:53

Rupesh Kumar Swami

3-Jul-09 5:53

hi all,
i want to list out all the instance of SQL server. i use following code for this purpose

Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance()<br />
        Dim table1 As System.Data.DataTable = instance.GetDataSources()<br />
        For Each row As DataRow In table1.Rows<br />
<br />
            If cboServer.Items.Contains(row.Item(0).ToString) Then<br />
            Else<br />
                cboServer.Items.Add(row.Item(0).ToString)<br />
            End If<br />
        Next

but some time above code does not enumerate all the instance of sql server on local network.

so i want to ask whether there are any method which enumerate all the instance of sql server which is located on my local network

Rupesh Kumar Swami
Software Developer,
Integrated Solution,
Bikaner (India)

My Company
Award: Best VB.NET article of June 2008: Create Column Charts Using OWC11

Re: enumerate Microsoft sql server instance in local network

Henry Minute3-Jul-09 8:53

Problem Reading, Saving from Excel file

3-Jul-09 8:53

I use SmoApplication.EnumAvailableSqlServers()[^], which seems to work reliably for me.

Trupti Mehta3-Jul-09 5:48

Trupti Mehta

3-Jul-09 5:48

Hello,

I have to read an Excel file, update some data and save the file. I wrote small code to open, read, save and close an excel file. I am using Microsoft.Office.Interop to achieve the goal. I have set the Excel application visibility as false. I tried the same in C# and VB.NET, but am facing same problem. Code is below:-

Private Sub OpenFile()
    Try
        excelApp = New Excel.ApplicationClass()
        excelApp.Visible = False
        excelworkbook = excelApp.Workbooks.Open(workbookPath, 0, False, 5, "", "", False, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", True, False, 0, False, False, False)
        excelSheets = excelworkbook.Worksheets
        excelWorkSheet = excelworkbook.Worksheets("Sheet1")
        MessageBox.Show("Connected and Opened")
        range = excelWorkSheet.UsedRange
        MsgBox("Rows = " + range.Rows.Count.ToString + " Cols = " + range.Columns.Count.ToString)
    Catch e As Exception
        excelSheets = Nothing
        excelworkbook = Nothing
        excelWorkSheet = Nothing
        excelApp = Nothing
        MessageBox.Show("Exception MSG " + e.Message + "\n ST :" + e.StackTrace)
    End Try
End Sub

Private Function ReadRow(ByVal rowNo As Integer, ByVal startRange As String, ByVal endRange As String) As Array
    Dim rge As Excel.Range = Nothing
    Dim valuesList As Array = Nothing

    Try
        rge = excelWorkSheet.Range(startRange, endRange)
        valuesList = rge.Cells.Value
    Catch e As Exception
        MsgBox("Uable To Read from " + startRange + " To " + endRange + " Due to " + vbCrLf + e.StackTrace)
        Save_Close()
    End Try

    Return valuesList
End Function

Private Sub Save_Close()
    Try
        excelworkbook.Save()
        excelworkbook.Close()
    Catch ee As Exception
        MessageBox.Show("Unable To Save : " + ee.Message)
        excelworkbook.Close()
    End Try

    releaseObject(excelApp)
    releaseObject(excelworkbook)
    releaseObject(excelWorkSheet)
    releaseObject(excelSheets)

    MessageBox.Show("File Closed")
End Sub

Private Sub releaseObject(ByVal obj As Object)
    Try
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    Finally
        GC.Collect()
    End Try
End Sub

Methods I have called is :
OpenFile()
ReadRow(1, A1, AL)
Save_Close

The problem I am facing is:
For REad Row: I get Exception
Unable to Read from A1 to AL Due to
Exception from HRESULT : 0X800A03EC
st: AT ....WorkSheet.getRange(Object Cell1, Object Cell2) at ....Line no

I tried the same code with ReadRow parameters as 1, A1, I6) and I got an array successfully. I want to read contents of a row of the provided range.

On calling excelworkbook.Save() in Save_Close(), I get exception as follows and the system halts/hangs on close line. I have to Stop Debugging.
Unable to save: Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))

After once executing, the next time I run the application, I get on start, "File is being used by , want to open as read-only?" with Yes/No options.

Can anybody help me know where am I going wrong. The file is .xls file with fixed 1st 3 cols and has several cols till CL or even more. My OS is Vista. I have added reference of Microsoft.Office.Interop.Excel version 12. I tried with 11 also, but faced same error. I want to edit the file also, so it should be opened with ability to update and not just Read-Only.

Any help is appreciated. Please try to help at the earliest. I am in big trouble.

Thanks

Terry

DateTimePicker problem with Month and Day

Nielvh3-Jul-09 3:12

3-Jul-09 3:12

I have a DateTimePicker where the user picks a date and this date is then written to a sql database. I store this date in variable before using it in the update sql string. The problem is that it interprets a date like 3 Jul 2009, as 7 Mar 2009. My regional settings is set as English (South Africa), short date is dd/mm/yyyy.
Can I change the DateTimePicker to use the date format that I want?
I even tried changing the DateTimePicker format to 03 Jul 2009 but when I step through the code I see the value as #7/3/2009 3:02:39 PM#.
I am using VB.net express on a XP machine.
Any help is much appreciated.

Nagy Vilmos3-Jul-09 3:46

Nagy Vilmos

3-Jul-09 3:46

Are you by any chance running the over multiple machines?
The format of that date must be in the databases format, ignore any local settings.

Panic, Chaos, Destruction.
My work here is done.

Nielvh3-Jul-09 3:59

3-Jul-09 3:59

No, I am still testing - only on my machine. How can I get the format that the DateTimePicker gives me (mm/dd/yyyy) to the format the database uses (dd/mm/yyyy)?

Enver Maroshi3-Jul-09 4:06

Enver Maroshi

3-Jul-09 4:06

You can set custom format for date picker (but i don't see problem with date variable filling sql parameter and wrting it in database, format is not important).

click on date picker, set "format" to custom (on properties window) and under "custom format" set standard vb date format, MM/dd/yyyy.

Edit: please use sql parameters, it will make your life so much easier. You don't have to worry about date formats, decimal number seperator, etc...

Edit2: date picker should automatically take your default cultrue info and use format specified in it, so i'm not sure why he would show you different date format than the one specified at your os. Also, if you want to receive short date format, under "format" property set to "Short".

Before developing always get to know components you will be using.

Nielvh3-Jul-09 4:15

3-Jul-09 4:15

Here is what I do:
Select a date from the DateTimePicker (3 Jul 2009)

In my Code I have:
Dim VisitDate as Date
VisitDate = DateTimePicker.Value

When I view VisitDate in the debugger it shows #7/3/2009 ....#
I then use VisitDate in my SQL string and the database sees it as 7 March, not 3 Jul.

I'm new to programming - will google sql parameters and see what I get.

Enver Maroshi3-Jul-09 4:23

Enver Maroshi

3-Jul-09 4:23

i guess you are doing something like:

Dim VisitDate as Date
VisitDate = DateTimePicker.Value

"INSERT INTO Table (VisitDate) VALUES ('" & VisitDate & "')"

which looks like this then:
"INSERT INTO Table (VisitDate) VALUES ('7/3/2009')"

SQL parameters will fix this, and as a beginner, you should start using them, it's best way to work with sql server.

Btw, only way you can make sure sql server (set up on any pc, no matter if it's set up as usa, english, spanish, german, etc... format) is to format date to "yyyyMMdd". SQL server will always know that first 4 is year, second 2 is month, and third 2 is day. And in your code you would have to do something like this:

"INSERT INTO Table (VisitDate) VALUES ('" & VisitDate.ToString("yyyyMMdd") & "')"

Nielvh3-Jul-09 4:33

3-Jul-09 4:33

Yes, that is exactly what I am doing. It seems I have to look into SQL parameters to get this problem sorted.
Thanks to all for their replies!

Nielvh5-Jul-09 23:34