Visual Basic Discussion Boards

go to the project>Add Reference>Browse
and there add wmp.dll
its in the system32 folder

cheers

TheMrProgrammer

Hi all..

I have created a .Net desktop application by using NHibernate.
I want to use ClickOnce Deployment but i am getting problem that hibernate.cfg.xml not found..
The specified file is placed in debug and release folders.
Also, when we include Application Files in Publish settings, hibernate.cfg.xml not shown there..

Plz help me out...

Ovais.

I had this problem too.

To bypass i used the app.config to do the hibernate configuration.

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <configSections>
    <section name="hibernate-configuration" type="NHibernate.Cfg.ConfigurationSectionHandler, NHibernate"/>
  </configSections>
  <hibernate-configuration xmlns="urn:nhibernate-configuration-2.2">
    <session-factory>
...
    </session-factory>
  </hibernate-configuration>
</configuration>

Develop a menu based application which provides the facility to convert temperature and length from one unit to another.
Running the application will display the main “Form”, this form will have a menu with the caption “File” there will be two “submenus” under this menu, with the caption “Temperature” and “Length” (as shown below)

Clicking on “Temperature” will display another form with the caption “Temperature”. (as shown below). Here temperature will be entered in “Celsius”, and then unit of resulting value will be specified through two radio buttons. Clicking the “Compute” button will cause the entered value, converted to the unit specified through radio buttons. E.g. if user enters 12, then selects “Kelvin” radio button, then after clicking “Compute” the result will be calculated by converting the “Celsius” to Kelvin.

The formulae used for conversion are as follows:

C = (F - 32) x 5/9
K = C + 273
F = (C x 9/5) + 32

Similarly Length converter will convert the length in “Kilometers” to “Meters” and “Centimeters” e.g. if you enter “20” and select “Meter” radio button, then after clicking the “Compute” button will display the result by converting 20 to “Meter” unit.

Hint:
1 KM = 1000 M
1 M = 100 CM

A few points:

1 - a Win32 app is an app written in C++ without MFC. You can't use VB.NET for that
2 - This is obviously homework. you have two choices here, they are, do your own homework, and ask specific questions as you get stuck, or, pay someone to write it for you/pray you find someone stupid enough to write it for you for free. If you don't do your own homework, you will eventually fail your course. The fact is, the world does NOT need another temperature conversion program, the task is designed to build your programming skills. If you don't learn how to do this, how will you approach the project you get given next, which builds on those skills.

I suggest you either do some research, write some code, and ask only *specific* questions ( and in the right forum ), or you approach your teacher for either help, or advice on how to transfer to an arts course.

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

Point 1. You are asking people how to write a program, so presumably you think that they are reasonably clever? Why on earth do you think that

sweety2006 wrote:
Hint:
1 KM = 1000 M
1 M = 100 CM

would be necessary.

Point 2. Unless you are obliged to by the specification, you should not put your conversion menu options in the File main menu. Believe it or not the File menu is supposed to be for File related actions, and, by convention, Exiting the application.

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.”

actually the hint is wrong, it should have been:
1 km = 1000 m
1 m = 100 cm

The International System[^] standardizes units (m for meter, M for molar), prefixes (k for 1000, c for 0.01, there is no C). K is often used to indicate "binary kilo" or 1024 although according to IEC that should be Ki for kibi (yikes). Kilobyte[^]

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

Thanks for the link.

I didn't actually read it, just observed that it was there.

I once had a cat called 'kibi', really.

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.”

sweety2006 wrote:
K = C + 273

That can't be right as the Kelvin[^] scale is meant to have positive values only.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

erm... 0 Kelvin is absolute zero, right ? So, why can't this be right ? According to the link you provided:

[K] = [°C] + 273.15

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

yours is a lot better, temperatures are real numbers, not integers, and physicists are fighting to get below -273°C, so these last centigrades do matter (and cost a lot).

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.

OK, you mean the .15 ? Well, this is obviously his homework, so that's why they kept it simple.

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

Hi,

I have created the table structure and added the composite primary keys to the ms-access table using VB.NET. while the control crosses the line "ADOXtable.Columns("CHARX_VALUE_COL").Properties("Nullable").Value = False", an error message raised as "Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."

ADOXtable = New ADOX.Table
ADOXtable.Name = "ACN_CHARX_INSTANCE"
ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32)
ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32)
ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger)
ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger)
ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("BITMAP_COL", ADOX.DataTypeEnum.adVarWChar, 128)
'append tables to database
cat.Tables.Append(ADOXtable)

key1.Name = "PrimaryKey"
key1.Type = ADOX.KeyTypeEnum.adKeyPrimary
key1.Columns.Append("LOGICAL_DB_NAME")
key1.Columns.Append("DIM_NAME")
key1.Columns.Append("CHARX_NAME")
key1.Columns.Append("CHARX_TABLE")
ADOXtable.Keys.Append(key1)

ADOXtable.Columns("CHARX_VALUE_COL").Properties("Nullable").Value = False
ADOXtable.Columns("VALUES_UNIQUE").Properties("Nullable").Value = True
ADOXtable.Columns("CHARX_ORDER_COL").Properties("Nullable").Value = True
ADOXtable.Columns("CHARX_ORDER").Properties("Nullable").Value = True
ADOXtable.Columns("CHARX_NUMERIC_COL").Properties("Nullable").Value = True
ADOXtable.Columns("BITMAP_COL").Properties("Nullable").Value = True

Please provide your valuable comments.

Thanks,
Sivakumar.M.

I would take that you mean that you have to commit the new columns to the database before you attempt to modify them and make the column nullable.

A guide to posting questions on CodeProject[^]

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

hi i have MS VB 2005 EE application ...in my application user can download my application from a website and they can fill out a form and submit the information to my remote server ....
what i need to do is i want the data sending by the users through web will be in encrypted form and data recived in my place is in decrypted form ...
how to acheive help needed>>>>
tHANK YOU FOR IN ADVANCE

"hi everyone need help" - please read the forum guidelines

harieshkumar.n wrote:
what i need to do is i want the data sending by the users through web will be in encrypted form and data recived in my place is in decrypted form ...

Use the System.Cryptography namespace to do this.

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

i have searched but i couldnt find a good and understandable example could youplease help me out with some examples

I have a Parent form with multiples tables.
let's say a group box that display text from table1 and also
I have a comboBox binding to table1 inside this groupbox along with textboxes.

On addnew from the parent table, I want to click on individual AddNew button to load a child form where I can select the one record that I want to show back to the parent table. Hence the selected PK id from table1 Laugh | :laugh:

will show in the comboBox along with its text.

Can anyone guide me and I will be greatly appreciated..

thanks

You need to hook a delegate between the child and the parent, so that you can call a method in the child form, and it runs a method in the parent form. There's plenty of articles on delegates around.

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

can u point me to some delegate articles since I don't know not much about delegates.

I reformulate my question...

I am using Vb.net and Sql express I have a Parent form with multiples tables for example table1, table2, etc. I have a group box that display textboxes from table1 and along a comboBox binding to table1 datasource. On Bindingaddnewitem on the parent form, I want to click on individual AddNew button to load a child form with table1 records where I can select the one record. I want to show this record back to the parent form. Hence the selected PK id of that particular record from table1 will show back in the comboBox on the parent form along with its text. I hope I make myself clear.. Can anyone give me an idea. if I use combox to select the record from table1, this can be huge. therefore I just want the one record from the child form which can be slected from a search or slelected or new added record. Can anyone guide me and I will be greatly appreciated..

Thanks

Why could you not just use a getter setter on the child form?

Humble Programmer

thanks for reply but have no idea what is a getter setter

You would want something like this on the child form.

Private iIntegerToBeSetGet As Integer = 0
Public Property iIntegerSetterGetter() As Integer
    Get
        Return iIntegerToBeSetGet
    End Get
    Set(ByVal value As Integer)
        iIntegerToBeSetGet = value
    End Set
End Property

and something like this in the parent form.

Dim objMyForm As New Form1
Dim i As Integer = objMyForm.iIntegerSetterGetter()
objMyForm.iIntegerSetterGetter = 12

Just use the value in the combobox that you want to show up on the parent form.

Humble Programmer

Thanks!
But on the child form, I have a datagridview and a search criteria. I do not have a combobox on the child form because try to avoid a huge list to select from..

I want to either search for a record or add a new record on the child form and then parse it back to the parent form..

Here is the scenario:

New Registration form

AddOffenderbutton will load offenderform (child form)to fill offenderlastname.text, offenderfirstname.text, offenderidentification.text, etc.. on the parent form(Registration form)

Hope I am bit clearer now..

Thanks a lot

I'm trying to write a utility that can compare a dataset to an existing SQL Server and then make changes to it via SMO
the problem i'm having currently is getting the indexes to be created properly.
dt is a table from the the .xsd dataset
TableToUpdate is the table i'm going to be making changes to.
VerifyTable is an exact copy of the table made at the same time TableToUpdate was created.

    Private Function UpdateColumn(ByRef TableToUpdate As Microsoft.SqlServer.Management.Smo.Table, ByVal ColumnToAdd As System.Data.DataColumn, ByVal dt As System.Data.DataTable, ByVal VerifyTable As Microsoft.SqlServer.Management.Smo.Table) As Boolean<br />
        Dim UpdateNeeded As Boolean = False<br />
        Dim idx As Index<br />
        Dim col As Column<br />
        col = TableToUpdate.Columns(ColumnToAdd.ColumnName)<br />
<br />
        col.Nullable = ColumnToAdd.AllowDBNull<br />
        col.DataType = GetTypeOfData(ColumnToAdd)<br />
<br />
        If Not ColumnToAdd.DefaultValue.Equals(DBNull.Value) Then<br />
            col.AddDefaultConstraint("DF_" & col.Name)<br />
            col.DefaultConstraint.Text = ColumnToAdd.DefaultValue.ToString<br />
        End If<br />
<br />
        col.Identity = ColumnToAdd.AutoIncrement<br />
        If col.Identity Then<br />
            col.IdentityIncrement = ColumnToAdd.AutoIncrementStep<br />
            col.IdentitySeed = ColumnToAdd.AutoIncrementSeed<br />
        End If<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
''' Here is where i have problems<br />
''' Any Help in making this work would be greatly appreciated.<br />
''' I need this to Add key's(Primary and Index) if they are not there<br />
''' Delete it if it's not needed<br />
''' Or Change it if its needed<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
        Dim pkColumns() As DataColumn<br />
        pkColumns = dt.PrimaryKey<br />
<br />
        If pkColumns.Contains(ColumnToAdd) Or ColumnToAdd.Unique Then<br />
            For Each i As Index In TableToUpdate.Indexes<br />
                If Not i.IndexedColumns.Contains(ColumnToAdd.ColumnName) Then<br />
                    idx = New Index<br />
                    idx.Parent = TableToUpdate<br />
                    If pkColumns.Contains(ColumnToAdd) Then<br />
                        idx.Name = "PK_" & ColumnToAdd.ColumnName & "_" & dt.TableName<br />
                        idx.IndexKeyType = IndexKeyType.DriPrimaryKey<br />
                    Else<br />
                        idx.Name = "IDX_" & ColumnToAdd.ColumnName & "_" & dt.TableName<br />
                        idx.IndexKeyType = IndexKeyType.DriUniqueKey<br />
                    End If<br />
                    idx.IndexedColumns.Add(New IndexedColumn(idx, ColumnToAdd.ColumnName))<br />
                    UpdateNeeded = True<br />
                End If<br />
            Next<br />
        Else<br />
            If TableToUpdate.Indexes(0).IndexedColumns.Contains(ColumnToAdd.ColumnName) Then<br />
                '        Item exists but should not<br />
                TableToUpdate.Indexes(0).IndexedColumns.Remove(ColumnToAdd.ColumnName)<br />
                UpdateNeeded = True<br />
            End If<br />
        End If<br />
<br />
        For Each p As Microsoft.SqlServer.Management.Smo.Property In col.Properties<br />
            If Not p.Value.Equals(VerifyTable.Columns(ColumnToAdd.ColumnName).Properties(p.Name).Value) Then Return True<br />
        Next<br />
        Return UpdateNeeded<br />
<br />
    End Function

Thank you