VB.NET Forum RSS Feed (Replies Included)

Re: Two Dimensional Arrays in VB.NET

Wed, 15 May 2013 23:32:11 -0700

this program will how to use a two dimensional array in vb.net ..

http://net-informations.com/vbprj/programflow/multi-dimensional-array.htm

mitch.

get something like alias from a sql database column

Wed, 15 May 2013 10:02:37 -0700

hi
i have a datagridview in my form that get data from a sql database through a datatable .
in database tables has a name that it use as datatable's column headerName.but i want to named column headerNames by a different name like alias of each column of sql table .
but i dont know how can get an alias name or a description of each database column ( as alias ) from database . please help me about it .

get somthing like alias from a sql database column

Wed, 15 May 2013 09:57:24 -0700

How to disable "E" symbol in large digits?

Mon, 13 May 2013 12:42:34 -0700

Hi!

I'm creating Bytes Calculator in Visual Basic 2012.
I'm beginner on platform .net, before I was using VB6.

In calculator is possible to convert e.g. PB to B.
So large symbols displays:
1 PB = 1,12589990684262E+15 B

HOW TO DISABLE SYMBOL "E" TO SHOW NUMBER AS IS?

Many many thanks for every help, reply or comments.

Miro

Re: How to read the content of a web page in VB.NET ??

Sat, 11 May 2013 23:30:17 -0700

you should Imports System.Net

webRequest = webRequest.Create(TextBox1.Text)
webresponse = webRequest.GetResponse()
inStream = New StreamReader(webresponse.GetResponseStream())

http://vb.net-informations.com/communications/vb.net_read_url.htm

winston.

Re: How to read the content of a web page in VB.NET ??

Sat, 11 May 2013 23:28:25 -0700

Re: How to read the content of a web page in VB.NET ??

Sat, 11 May 2013 23:26:34 -0700

connect to an access database on a server

Wed, 08 May 2013 05:55:40 -0700

Hi all,

I'm having problems with connecting to my database. The computer i'm on is connected to a server called BPL. That server is connected to a mainserver.

My database is on a hidden testmap called "publicshare$"

my connection string would normaly be :

Dim dbconn As New 0leDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source= \\mainserver\publicshare$\TestTomDatabase\woordens pelNederlands.accdb")

You don't need a password to connect to the database, but i need to implement an other user name (eg. admin ) and a password (eg. adminpas) to connect to the map.

How should i chance my connectionstring so that i can do this ?

Br,

Need Help with Browsers in VB.Net

Wed, 08 May 2013 02:19:03 -0700

I am a total Beginners and just trying to create a simple progamme.

I want the user to click a button which will open a web page within the forum.I used the following code

Private Sub RPRulesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RPRulesToolStripMenuItem.Click
WebBrowser.Visible = True
WebBrowser.Navigate("http://ucwonline.freeforums.org/")
End Sub

However when I run the Programme,all I get is a black screen in the VB.Net Browser.No text,nothing.Other sites such as Google and youtube seems to work perfect but not this one (It works perfect in the normal Browser)..Anyone has some suggestions or workarounds? I want to display the text from the site or the whole page but within the form without using any external browser.

Thanks!!

Re: Two Dimensional Arrays in VB.NET

Tue, 07 May 2013 00:23:52 -0700

hi sean,
i wanna ask you one question
do you have any notes regarding to vb.net because i tried many times to understand what i'd googled but i got a bit input. do you have any easy vb.net tutorial to be understand?

Re: Barcode scanning check

Tue, 23 Apr 2013 20:39:10 -0700

This VB.NET UPC-A Barcode Generator Library may solve your problem. It also offers detailed steps for generating UPC-A barcode in VB.NET.I think it's very simple.

Re: Barcode scanning check

Tue, 23 Apr 2013 20:36:51 -0700

This VB.NET UPC-A Barcode Generator Library may solve your problem. It also offers detailed steps for generating UPC-A barcode in VB.NET.I think it's very simple.

Re: Error in VB.net with MYSql

Sat, 13 Apr 2013 07:45:30 -0700

Thank you Livetechs,

I resolve the problem by myself.
The problem was a syntaxis error in mysql command.

I modified the sql commmand adding ` single quote in the command.
strSQL = "INSERT INTO `Libros`(`Title`,`Desc`) VALUES ('" & Title_text.Text & "', '" & Desc_text.Text & "')"

Thank you for you help.

Re: Error in VB.net with MYSql

Fri, 12 Apr 2013 03:42:31 -0700

Hello,

Please let me know the exact error message are you getting

Thanks
[URL="http://www.traklive.com"]Bug Tracking[/url] -
[URL="http://www.livetecs.com"]Web Timesheet[/url]
[URL="http://www.livetecs.com"]Time Tracking Software[/url]

Embedded Font from Resources is not working on other Systems in VB.NET

Sun, 07 Apr 2013 22:37:41 -0700

I've a font embedded from resources. on my System it's working perfectly (Win XP). but when I try to test the executable on other System (Only Windows 7), everything is working fine, bu embedded font is not showing up. It is applied on a label.

Public ReadOnly Property GetInstance(ByVal Size As Single, _
ByVal style As FontStyle) As Font
Get
'IF THIS IS THE FIRST TIME GETTING AN INSTANCE
'LOAD THE FONT FROM RESOURCES
If fntCollect Is Nothing Then LoadFont()

'RETURN A NEW FONT OBJECT BASED ON THE SIZE AND STYLE PASSED IN
Return New Font(fntCollect.Families(0), Size, style)

End Get
End Property

Private Sub LoadFont()
Try
'INIT THE FONT COLLECTION
fntCollect = New PrivateFontCollection

'LOAD MEMORY POINTER FOR FONT RESOURCE
Dim fontMemPointer As IntPtr = _
Marshal.AllocCoTaskMem( _
My.Resources.DIGITAL.Length)

'COPY THE DATA TO THE MEMORY LOCATION
Marshal.Copy(My.Resources.DIGITAL, _
0, fontMemPointer, _
My.Resources.DIGITAL.Length)

'LOAD THE MEMORY FONT INTO THE PRIVATE FONT COLLECTION
fntCollect.AddMemoryFont(fontMemPointer, _
My.Resources.DIGITAL.Length)

'FREE UNSAFE MEMORY
Marshal.FreeCoTaskMem(fontMemPointer)
Catch ex As Exception
MsgBox("Sorry! Error Loading Digital Font.")

End Try

End Sub
ASP.Net Web Development

Error in VB.net with MYSql

Fri, 05 Apr 2013 12:49:37 -0700

Hi all,

I do not have to much experience in VB.net. I am doing small application to practice.

In this case I am creating a VB application conneting to a MYSQL Database.

The problem I have is when I try to make a new register into the DDBB, I recieve a syntaxis error.

INSERT INTO Libros(Titulo,Desc) VALUES ('" & Titulo_text.Text & "', '" & Desc_text.Text & "')

However if I use the command into mysql server it works fine.

INSERT INTO Libros(Title,Desc) VALUES ()

Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
-----------------

If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = "SERVER = my server; USERID = joserodriguezan; PASSWORD = Aberystwyth; DATABASE = Bibloteca;"
sConnection.Open()
End If
Try
strSQL = "INSERT INTO Libros(Title,Desc) VALUES ('" & Title_text.Text & "', '" & Desc_text.Text & "')"
Dim da As New MySqlDataAdapter(strSQL, sConnection)
da.Fill(dset)
Catch ex As Exception
MessageBox.Show("Error")
End Try

Tittle_text.Text = ""
Desc_text.Text = ""
Class_combo.Text = ""
Date_text.Text = ""
Pres_text.Text = ""
Who_text.Text = ""
Title_text.Focus()
list()
End Sub
-----------------------

Any knows how to resolve this problem?
Thank you.

Cannot save record using Entity Framework

Fri, 05 Apr 2013 05:26:20 -0700

I am an absolute beginner. But I searched the net. There are not many example shown in VB anywhere.

I have created a test project which holds the win form. Then added another project which holds the Entity Model, after building the Model I added a reference of this to the Win form project. After that I added the Model object as a datasource.

I dragged the datasource controls into the form and added the below code.

Collapse | Copy Code
Private context As TestModelEntities

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

context = New TestModelEntities

Dim query = context.employees
EmployeeBindingSource.DataSource = query.ToList

End Sub

Private Sub DepartmentBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmployeeBindingNavigatorSaveItem.Click

Try
context.SaveChanges()
MessageBox.Show("Changes saved to the database.")
Me.Refresh()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

I am scratching my head all day. Don't know what I am doing wrong.

Re: Tic Tac Toe With PC Player

Tue, 02 Apr 2013 18:50:59 -0700

After playing with my code. I think I may have it. I think I took the easy way out of checking if computer can wind instead of blocking the human. But still want to block. So any info that be great.

Tic Tac Toe With PC Player

Sun, 24 Mar 2013 13:25:07 -0700

Hi all, Long time ago back when i was in school i created a 2 player tic tac toe game. I reviewed my code and thought about adding a computer player to replace player 2. I did that but the computer player is goofy. It will play and then will stop and I can't click anywhere. When I was unable to click anywhere I notice my turn var was still o for computer. Well computer never played. Any Ideas? I will be happy to share my code with anyone. This is just for fun and building my learning on programming.

I want some help in my paint application

Sun, 24 Mar 2013 10:52:28 -0700

Hi everyone I want some help in my paint application, I am using pictuerbox to draw on it but in the last day my requirement is change that the user want to open an image and do all the functionality on it.. I try to open an image but when I choose some option to draw on the image its didn’t show...
I want some clue quickly please …

I want some help in my paint application

Sun, 24 Mar 2013 10:44:56 -0700

Re: Problems Determining Patch.State - WindowsInstaller

Fri, 22 Mar 2013 11:57:04 -0700

Here's what we've gotten to work for us...

Type t = Type.GetTypeFromProgID("WindowsInstaller.Installer
");
                Installer iInstaller = (Installer)Activator.CreateInstance(t);

                string strPatchPath = null;
                string strPatchCode = null;
                string strProdCode = null;
                string strPatchXML = null;
                XmlDocument xmlMsiPatch = new XmlDocument();

                

                if (MinMsiVersion > Convert.ToDouble(iInstaller.Version.Substring(0, iInstaller.Version.IndexOf('.'))))
                {
                    MessageBox.Show("Minimum Windows Installer version " + MinMsiVersion + " required.  Current version is " + iInstaller.Version, "Windows Installer version problem...");
                }

                strPatchPath = "C:\\Program Files (x86)\\Synergis\\Adept80\\Client\\Install\\AdeptPa
tch.msp";
                strPatchXML = iInstaller.ExtractPatchXMLData(strPatchPath);

                xmlMsiPatch.LoadXml(strPatchXML);

                strPatchCode = xmlMsiPatch.DocumentElement.Attributes["PatchGUID"
].Value;
                strProdCode = xmlMsiPatch.GetElementsByTagName("TargetProductCod
e").Item(0).InnerText;

                //Now check if patch is applied...

                int rtn = 0;
                dynamic ePatch = iInstaller.get_Patches(strProdCode);
  
                if (ePatch.count > 0)
                {
                    for (var i = 0; i < ePatch.count; i++)
                    {
                        if (ePatch[i] == strPatchCode)
                        { 
                            MessageBox.Show("here");
                            rtn = 1;
                        }

                    }
                }

Hope it helps someone.

Dynamic Saving of Datas

Sun, 17 Mar 2013 22:57:56 -0700

Hi All

I am new to programming. I have created dynamic addition of controls(textbox, combobox) to my form. Now i have to save the data in the dynamically created controls in ms sql database. Please tell me how to assign it some variable or how to save it to my MS SQL Server.

Thanks in Advance
Luxme

Problems Determining Patch.State - WindowsInstaller

Fri, 15 Mar 2013 09:33:57 -0700

Hi all,
I hope someone can help me here. There aren't many good code examples out there dealing with Windows Installer patches (.msp). We have an update widget that will install or apply a patch simply if the .msp is located in the application's update folder location. I want to try to change that to first, determine if the patch actually needs to be applied.

First, I need to grab the Patch/Product codes from the .msp, then check the Patch.State against the Product Code. The first part is working fine, but I'm having problems checking the State...

1.	Const MinMsiVersion = "3.0" 'Minimum version to support functionality
2.	Const MSIPATCHSTATE_APPLIED = 1 'Patch is applied to this product instance.
3.	Const msiInstallContextMachine = 4 'Enumerate products that are under the machine account.
4.	 
5.	Dim iInstaller As WindowsInstaller.Installer
6.	Dim pPatch 'As WindowsInstaller.Patch
7.	        '= CreateObject("WindowsInstaller.Installer")
8.	 
9.	Dim strPatchPath, _
10.	    strPatchCode, _
11.	    strProdCode As String
12.	Dim strPatchXML As String
13.	Dim xmlMsiPatch As XmlDocument = New XmlDocument()
14.	 
15.	Try       
16.	    If MinMsiVersion > iInstaller.Version Then
17.	        MsgBox("Minimum Windows Installer version " & MinMsiVersion & " required.  Current version is " & iInstaller.Version, MsgBoxStyle.OkOnly, "Windows Installer version problem...")
18.	    End If
19.	 
20.	    iInstaller = CType(CreateObject("WindowsInstaller.Installer"),  _
21.	                   WindowsInstaller.Installer)
22.	 
23.	    strPatchPath = "C:\Program Files (x86)\MyComp\Adept80\MyApp\Install\MyAppPatch.msp"
24.	    strPatchXML = iInstaller.ExtractPatchXMLData(strPatchPath)
25.	 
26.	    xmlMsiPatch.LoadXml(strPatchXML)
27.	 
28.	    strPatchCode = xmlMsiPatch.DocumentElement.Attributes("PatchGUID"
).Value
29.	    strProdCode = xmlMsiPatch.GetElementsByTagName("TargetProductCod
e").Item(0).InnerText
30.	 
31.	    pPatch = iInstaller.Patch(strPatchCode, strProdCode, "", msiInstallContextMachine)
32.	 
33.	    If pPatch.State = MSIPATCHSTATE_APPLIED Then 'already applied
34.	        MsgBox("Write to log... Patch has already been applied (" & pPatch.State & ")!")
35.	    Else
36.	        MsgBox("I'm installing the patch")
37.	    End If
38.	 
39.	Catch ex As Exception
40.	    MsgBox(Err.Number)
41.	    MsgBox(Err.Description)
42.	    'MsgBox(ex.Message)
43.	    MsgBox(ex.ToString)
44.	 
45.	    'ERROR_PATCH_NOT_APPLIED
46.	End Try

This code is failing on line 31 with an error 13 - Return Argument Has An Invalid Type. Can anyone help get me around this? I've attached an image with some more info from this error.

Since all of this may have to be ported to C++, I wonder if its better to try to get the following code up and running...

1.	Const MinMsiVersion = "3.0" 'Minimum version to support functionality
2.	Const MSIPATCHSTATE_APPLIED = 1 'Patch is applied to this product instance.
3.	Const msiInstallContextMachine = 4 'Enumerate products that are under the machine account.
4.	 
5.	Dim iInstaller = CreateObject("WindowsInstaller.Installer")
6.	 
7.	Dim strPatchPath, _
8.	    strPatchCode, _
9.	    strProdCode As String
10.	Dim strPatchXML As String
11.	Dim xmlMsiPatch As XmlDocument = New XmlDocument()
12.	 
13.	Try
14.	 
15.	If MinMsiVersion > iInstaller.Version Then
16.	     MsgBox("Minimum Windows Installer version " & MinMsiVersion & " required.  Current version is " & iInstaller.Version, MsgBoxStyle.OkOnly, "Windows Installer version problem...")
17.	End If
18.	 
19.	strPatchPath = "C:\Program Files (x86)\MyComp\MyApp\Client\Install\MyAppPatch.msp"
20.	strPatchXML = iInstaller.ExtractPatchXMLData(strPatchPath)
21.	 
22.	xmlMsiPatch.LoadXml(strPatchXML)
23.	 
24.	strPatchCode = xmlMsiPatch.DocumentElement.Attributes("PatchGUID"
).Value
25.	strProdCode = xmlMsiPatch.GetElementsByTagName("TargetProductCod
e").Item(0).InnerText
26.	 
27.	Dim pPatch = iInstaller.Patch(strPatchCode, strProdCode, "", msiInstallContextMachine)
28.	 
29.	If pPatch.State = MSIPATCHSTATE_APPLIED Then 'already applied
30.	    MsgBox("Write to log... Patch has already been applied (" & pPatch.State & ")!")
31.	Else
32.	    MsgBox("I'm installing the patch")
33.	End If
34.	 
35.	Catch ex As Exception
36.	    MsgBox(Err.Number)
37.	    MsgBox(Err.Description)
38.	    'MsgBox(ex.Message)
39.	    MsgBox(ex.ToString)
40.	 
41.	    'ERROR_PATCH_NOT_APPLIED
42.	End Try

However this code snippet was failing on...

If pPatch.State = MSIPATCHSTATE_APPLIED Then

The error number I eventually was able to get from it was -21470223249 which after digging a bit I found was ERROR_PATCH_NOT_APPLIED.

I'm not currently able to handle if the patch has not been applied with this code. If the patch is installed, the return, 1, is fine and the log write would occur (in this case msgbox). If not installed or applied, BOOM!

In the first code snipped, these were the imports...

Imports WindowsInstaller
Imports System
Imports System.Xml

In the second code segment, Windowsinstaller was commented out.

I hope someone can help me as I think/hope I am very close to having some workable code to detect if a patch has been applied!

Thanks in advance for any help!!!

THANKS FOR YOUR HELP!!

Problems Determining Patch.State - WindowsInstaller

Fri, 15 Mar 2013 09:11:23 -0700

1.	Const MinMsiVersion = "3.0" 'Minimum version to support functionality
2.	Const MSIPATCHSTATE_APPLIED = 1 'Patch is applied to this product instance.
3.	Const msiInstallContextMachine = 4 'Enumerate products that are under the machine account.
4.	 
5.	Dim iInstaller As WindowsInstaller.Installer
6.	Dim pPatch 'As WindowsInstaller.Patch
7.	        '= CreateObject("WindowsInstaller.Installer")
8.	 
9.	Dim strPatchPath, _
10.	    strPatchCode, _
11.	    strProdCode As String
12.	Dim strPatchXML As String
13.	Dim xmlMsiPatch As XmlDocument = New XmlDocument()
14.	 
15.	Try       
16.	    If MinMsiVersion > iInstaller.Version Then
17.	        MsgBox("Minimum Windows Installer version " & MinMsiVersion & " required.  Current version is " & iInstaller.Version, MsgBoxStyle.OkOnly, "Windows Installer version problem...")
18.	    End If
19.	 
20.	    iInstaller = CType(CreateObject("WindowsInstaller.Installer"),  _
21.	                   WindowsInstaller.Installer)
22.	 
23.	    strPatchPath = "C:\Program Files (x86)\MyComp\Adept80\MyApp\Install\MyAppPatch.msp"
24.	    strPatchXML = iInstaller.ExtractPatchXMLData(strPatchPath)
25.	 
26.	    xmlMsiPatch.LoadXml(strPatchXML)
27.	 
28.	    strPatchCode = xmlMsiPatch.DocumentElement.Attributes("PatchGUID"
).Value
29.	    strProdCode = xmlMsiPatch.GetElementsByTagName("TargetProductCod
e").Item(0).InnerText
30.	 
31.	    pPatch = iInstaller.Patch(strPatchCode, strProdCode, "", msiInstallContextMachine)
32.	 
33.	    If pPatch.State = MSIPATCHSTATE_APPLIED Then 'already applied
34.	        MsgBox("Write to log... Patch has already been applied (" & pPatch.State & ")!")
35.	    Else
36.	        MsgBox("I'm installing the patch")
37.	    End If
38.	 
39.	Catch ex As Exception
40.	    MsgBox(Err.Number)
41.	    MsgBox(Err.Description)
42.	    'MsgBox(ex.Message)
43.	    MsgBox(ex.ToString)
44.	 
45.	    'ERROR_PATCH_NOT_APPLIED
46.	End Try

1.	Const MinMsiVersion = "3.0" 'Minimum version to support functionality
2.	Const MSIPATCHSTATE_APPLIED = 1 'Patch is applied to this product instance.
3.	Const msiInstallContextMachine = 4 'Enumerate products that are under the machine account.
4.	 
5.	Dim iInstaller = CreateObject("WindowsInstaller.Installer")
6.	 
7.	Dim strPatchPath, _
8.	    strPatchCode, _
9.	    strProdCode As String
10.	Dim strPatchXML As String
11.	Dim xmlMsiPatch As XmlDocument = New XmlDocument()
12.	 
13.	Try
14.	 
15.	If MinMsiVersion > iInstaller.Version Then
16.	     MsgBox("Minimum Windows Installer version " & MinMsiVersion & " required.  Current version is " & iInstaller.Version, MsgBoxStyle.OkOnly, "Windows Installer version problem...")
17.	End If
18.	 
19.	strPatchPath = "C:\Program Files (x86)\MyComp\MyApp\Client\Install\MyAppPatch.msp"
20.	strPatchXML = iInstaller.ExtractPatchXMLData(strPatchPath)
21.	 
22.	xmlMsiPatch.LoadXml(strPatchXML)
23.	 
24.	strPatchCode = xmlMsiPatch.DocumentElement.Attributes("PatchGUID"
).Value
25.	strProdCode = xmlMsiPatch.GetElementsByTagName("TargetProductCod
e").Item(0).InnerText
26.	 
27.	Dim pPatch = iInstaller.Patch(strPatchCode, strProdCode, "", msiInstallContextMachine)
28.	 
29.	If pPatch.State = MSIPATCHSTATE_APPLIED Then 'already applied
30.	    MsgBox("Write to log... Patch has already been applied (" & pPatch.State & ")!")
31.	Else
32.	    MsgBox("I'm installing the patch")
33.	End If
34.	 
35.	Catch ex As Exception
36.	    MsgBox(Err.Number)
37.	    MsgBox(Err.Description)
38.	    'MsgBox(ex.Message)
39.	    MsgBox(ex.ToString)
40.	 
41.	    'ERROR_PATCH_NOT_APPLIED
42.	End Try

However this code snippet was failing on...

If pPatch.State = MSIPATCHSTATE_APPLIED Then

The error number I eventually was able to get from it was -21470223249 which after digging a bit I found was ERROR_PATCH_NOT_APPLIED.

I'm not currently able to handle if the patch has not been applied with this code. If the patch is installed, the return, 1, is fine and the log write would occur (in this case msgbox). If not installed or applied, BOOM!

In the first code snipped, these were the imports...

Imports WindowsInstallerImports SystemImports System.Xml

In the second code segment, Windowsinstaller was commented out.

I hope someone can help me as I think/hope I am very close to having some workable code to detect if a patch has been applied!

Thanks in advance for any help!!!

THANKS FOR YOUR HELP!!