A1VBCode Forums / Visual Basic .NET / .NET Programming

Read Txt file line by line to textbox

1C3C0LD — Tue, 20 Jul 2010 09:23:11 GMT

Hello,

Im making a program that reads a txt file
what im trying to make is a button that displays the next line every time you click it

[code] Dim oRead As System.IO.StreamReader
oRead = IO.File.OpenText("C:\Users\AMILOXI3650\Desktop\Keys.txt")

While oRead.Peek <> -1
linein = oRead.ReadLine()

End While[/code]

for exmp. file contains
11111111111
22222222222
33333333333
44444444444

User clicks first time on button
textbox displays > 1111111111111
second time user clicks it will display
2222222222222

Etc etc.

Sounds really simple
but hard to make for me
any 1 has an idea how to make this?

Get HtmlElement From Stream

assafey — Mon, 26 Jul 2010 07:04:55 GMT

Hi,
Can someone help me with this issue??
I am trying to get html element from a stream

this is the stream:

Dim request As WebRequest = HttpWebRequest.Create("http://www.mysite.com/")
Dim response As WebResponse = request.GetResponse()
Dim stream As Stream = response.GetResponseStream()

How can I get the html elements from it?
(I DO NOT WANT TO USE WEBBROWSER CONTROL)

Then I will do something like...

For Each element As HtmlElement In XXXXXXXX
       ListBox1.Items.Add(element.GetAttribute("href"))
Next

PLS HELP ME!
THANKS!!!! &

PictureBox Migration from VB6 to VB.NET 2010

zccary — Wed, 21 Jul 2010 13:30:11 GMT

Hi All,

Please see the attached sample app in VB6.
Here is my case: The app prints/displays text on a PictureBox. Then you can draw a block around some text, and name it. Then when right-clicking on the block, you can view the block info.

How can it be done in VB.NET 2010?

Thanks so much in advance.

Chu

Highlight text in a textbox

Mar — Tue, 20 Jul 2010 09:52:43 GMT

Hello. I have a problem that is proving extremely difficult. I hope someone has a clue.

I am trying to highlight the text in a textbox when it gets the focus. Here is the code:

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
'TextBox1.SelectionStart = 0
'TextBox1.SelectionLength = TextBox1.Text.Length
TextBox1.SelectAll()
End Sub

I used the GotFocus and Enter events, neither work. I used SelectionStart with SelectionLength; no luck. Tried .SelectAll for zilch. If I include a MsgBox in the event, it will work. Adding DoEvents doesn't help. I have the problem if I compile it also. I am using a virtual machine, but running the exe on a real machine causes identical behavior.

If this question is out of scope of this forum can someone please direct me somewhere that may help?

timer tick not working properly

jamesvick — Mon, 19 Jul 2010 10:10:31 GMT

i was trying to make a free microsoft word plugin in vb.net. It automatically fills a web form. The main problem with the plugin is that it uses web browser control and once it has filled a form it will need to navigate another form. The form can only be filled once it has completely been loaded.

so my approach is
1. navigate to first site when form loads

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://google.com")
End Sub

2. use an integer i and use if statements to check which form to fill :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If (i = 1) Then
WebBrowser1.Document.GetElementById("username").SetAttribute("value", "elvin")
WebBrowser1.Document.GetElementById("password").SetAttribute("value", "1111111")
WebBrowser1.Document.GetElementById("wpt").InvokeMember("click")
i = 2
ElseIf (i = 2) Then
WebBrowser1.Document.GetElementById("title").SetAttribute("value", "elvin")
WebBrowser1.Document.GetElementById("content").SetAttribute("value", "111111")
WebBrowser1.Document.GetElementById("tags").SetAttribute("value", "fgddferre")
WebBrowser1.Document.GetElementById("publish").InvokeMember("click")
i = 3
Timer1.Start()
ElseIf (i = 3) Then
Timer1.Stop()
WebBrowser1.Document.GetElementById("loginTextBlock_uname").SetAttribute("value", "elvin")
WebBrowser1.Document.GetElementById("loginTextBlock").SetAttribute("value", "11111")
WebBrowser1.Document.GetElementById("nowwhat").InvokeMember("click")
i = 4
ElseIf (i = 4) Then
WebBrowser1.Document.GetElementById("title").SetAttribute("value", "elvin")
WebBrowser1.Document.GetElementById("content").SetAttribute("value", "11111")
WebBrowser1.Document.GetElementById("tags").SetAttribute("value", "fghfghfgh")
WebBrowser1.Document.GetElementById("publish").InvokeMember("click")
i = 5
Timer1.Start()
ElseIf (i = 5) Then
WebBrowser1.Document.GetElementById("user").SetAttribute("value", "rfgjhfhj")
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "566788989")
WebBrowser1.Document.GetElementById("wpt").InvokeMember("click")
i = 6
End If
End Sub

3. this is the main step. you see when main form loads, i=1 so browser goes to google.com (first form), when form is completely loaded, itchecks for value of i. Since i=1, it fills google. After filling and continuing i=2 and browser goes to my personal account page. This means browser again loads the document. Now i=2, so it fills my personal detalis. Now the timer starts. Since i=3, browser navigates to second site and fills the details.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (i = 3) Then
WebBrowser1.Navigate("http://blogger.com")
ElseIf (i = 5) Then
WebBrowser1.Navigate("http://www.yahoo.com/")
End If
End Sub

now the problem arises. The browser does not go to the third site. Once the timer has been stopped and started, the following code does not goto the elseif part (i.e. i=5) why is that so?

Add reports to deployed application

Aidanb79 — Sat, 17 Jul 2010 14:23:57 GMT

Hi All,

I am wondering if anyone could help me i am trying to research about how a developer could add reports to a deployed applications by simply adding them to a folder set up in the application start up path.

These reports would then add automaticly to the menustrip under reports.

any help or point in the right direction would be greatly appriciated.

Regards

Aidan

Issue Converting DataType

pgm575 — Fri, 16 Jul 2010 13:11:35 GMT

I am attempting to fill a DataTable with columns of numbers from a CSV to create lines on a third party chart control called Zedgraph. The problem is, the control keeps plotting one-to-one lines of point counts (in other words, if the column has 400 points, it plots a straight line from 0,0 to 400,400). I believe it is doing this because the data in my table is still being input as type String, which it shouldn't given the Cdbl(Var(x)) function I have written in. Why do you think my table values are still of type String?

Imports ZedGraph

Public Class Form1

Private Sub CreateDataset(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DataSet As New DataSet
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
DataSet = getCsvToDataset(OpenFileDialog1.FileName)
End If

Call ChartFill(DataSet)

End Sub

Private Sub ChartFill(ByVal DS As DataSet)
Dim ChartPane As GraphPane = ZG1.GraphPane
Dim dspl As New DataSourcePointList
With dspl
.DataSource = DS.Tables(0)
.XDataMember = "Time Slot"
.YDataMember = "X1 1000 Air"
End With

Dim line1 As CurveItem
line1 = ChartPane.AddCurve("X1 1000 Air", dspl, Color.Aquamarine)

ChartPane.AxisChange()

End Sub

Private Shared Function getCsvToDataset(ByVal strPath As String) As DataSet
Dim strLine As String
Dim strArray As String()
Dim charArray As Char() = New Char() {","c}
Dim ds As New DataSet()
Dim dt As DataTable = ds.Tables.Add("TheData")
Dim aFile As New IO.FileStream(strPath, IO.FileMode.Open)
Dim sr As New IO.StreamReader(aFile)

strLine = sr.ReadLine()
strArray = strLine.Split(charArray)

For x As Integer = 0 To strArray.GetUpperBound(0)
dt.Columns.Add(strArray(x).Trim())
Next

strLine = sr.ReadLine()
While strLine IsNot Nothing
strArray = strLine.Split(charArray)
Dim dr As DataRow = dt.NewRow()
For i As Integer = 0 To strArray.GetUpperBound(0)
dr(i) = strArray(i).Trim()
If dr(i) <> "" Then
dr(i) = CDbl(Val(dr(i)))
End If
Next
dt.Rows.Add(dr)
strLine = sr.ReadLine()
End While
sr.Close()

Dim ds2 As New DataSet
Dim dt2 As DataTable = ds2.Tables.Add("MoreData")

Return (ds)
End Function

End Class

Datagrid Query

smartshab — Wed, 14 Jul 2010 02:22:06 GMT

Hello friends. I am using vb.net. i ahve datagrid on my form. I want that when i enter datagrid and press insert key from keyboard, it should open a new form.

Plz help

[HELP] Random Info Generation

p3p3p3 — Sun, 11 Jul 2010 06:05:00 GMT

hi
im new in vb.net
i need to make a form like this

For Firstname and Lastname: When you click to random Button it will auto pick random Firstname from Firstname.txt and random Lastname from Lastname.txt

For Username: when you click to random Username Button it will auto generate Username
from firstname, lastname, string, number like this

Username = firstname+number+lastname+string

For Password:

Password = random string + random number

Sorry for my bad english. Please help

Listbox Issue in 3 tier application

firoz8871 — Wed, 07 Jul 2010 23:47:05 GMT

I created a program in 3 tier application but cannot populate the listbox. can any body give suggesstion please. I write the code below:

DATA ACCESS LAYER:
Public Function AllItems(ByVal cmdtext As String) As DataSet
_dset = Nothing
Try
_olecon = New OleDb.OleDbConnection(_constr)
_olecon.Open()
_olecom = New OleDb.OleDbCommand()
With _olecom
.Connection = _olecon
.CommandType = CommandType.Text
.CommandText = cmdtext
End With
_oledap = New OleDb.OleDbDataAdapter(_olecom)
_dset = New DataSet()
_oledap.Fill(_dset)
Catch ex As Exception
_dset = Nothing
Throw ex
Finally
disposeAllObjects()
End Try
Return _dset
End Function

BUSINESS ACCESS LAYER :
Public Sub ListItems()
_dset = Nothing
Try
_obj = New DItems()
_dset = _obj.AllItems(cmdtext)
Dim objs As BItems = Nothing
_lstitems = New List(Of BItems)
For i As Integer = 0 To _dset.Tables(0).Rows.Count - 1
objs = New BItems()
objs.itemname = _dset.Tables(0).Rows(i)(0).ToString()
_lstitems.Add(objs)
objs = Nothing
Next
Catch ex As Exception
Throw ex
Finally
_obj = Nothing
End Try
End Sub

IN THE FORM (TEXTBOX) EVENT:
Private Sub DisplayList()
Me.Cursor = Cursors.WaitCursor
Try
_objs = New BItems()
_objs.cmdtext = "SELECT Product FROM Products ORDER BY product "
_objs.ListItems()
ListBox1.Items.Clear()
ListBox1.DataSource = _objs.Itemlist
ListBox1.DisplayMember = _objs.product
ListBox1.Focus()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
Finally
_objs = Nothing
End Try
Me.Cursor = Cursors.Default
End Sub

LIST BOX DIDNT POPULATE THE RECORDS FROM THE TABLE
IF I USE FROM MSGBOX(_OBJS.ITEMLIST.COUNT)
THEN IT DISPLAY THE RECORD NUMBERS CORRECTLY

open report in vb

kvebek — Wed, 07 Jul 2010 06:26:00 GMT

Hi
i have the following sub in my form:

Private Sub report_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles report.Click
Dim frm As New frmreport1
gclass.sreport = "summary.rpt"
frm.MdiParent = Me
frm.BringToFront()
frm.Show()
End Sub

ther problem is that "connect to database" dialog box pops up everytmie button is clicked. How so i automatically pass parameters to it?
i am not a vb programmer but was asked to look at it
You help is appreciated

Need help with a part of a program

panthera — Sun, 04 Jul 2010 16:08:01 GMT

Please help
I really need some help in a project I've been working on. Its almost completed, but there is a place where i'm stuck on. I'm making a library project.there is a table with many records. Each record has a year, title, author, keywords and the loan numbers. loan numbers is the number of times the book has been borrowed. What i need to find is, the 10 most popular books and the 10 most popular searches for a particular year. the search is used by keywords. the keywords are predefined. eg: medicine, cardiology. the first section is completed, to find the 10 most popular books. all i need to know is how to find out the 10 most popular searches. the problem is that the user can use multiple words in one single search.
eg: if we need a book which describes postmortem, we can give the search as "medicine, postmortem". In this case there is two keyword in one particular search. What I need to find is 10 popular search keywords, not the whole search string as given in example. I was hoping to do in such a way that all the keywords are inserted in an array and a count is made whenever a search is done and increment the value if the same keyword is repeated again. But in this case i may need to cut the string if two or more keywords are used in a single search. I need help with that. Please someone wide the code for me for this section.
the coding is done in VB.NET
Any help is appreciated.
Thank you
Arunjith.

Spliting Words from text box

itsindh — Sat, 03 Jul 2010 09:47:39 GMT

Dear Friends

I m new in vb 2005. i want that

1. i have to enter a sentence to a text field and when i press a button then my given sentence will split into words and replace these words from mysql database

example: i have entered "i am fine and ok"

then "i" will be converted to "eye"

"am" to "m"

"fine" to "f9"

"and" to "n"

"ok" to "okay"

and this show sentence again "eye m f9 n okay"

but these words and replacing words will be taken from mysql database

like in pic

Please help me sir .......

regards :::: it eagle

How to combine a filter statement with an "AND"

victor64 — Fri, 02 Jul 2010 23:07:08 GMT

Hello, I'm using the code below to search in XML files depending on the values entered in the text boxes, problem is I don't know how to combine the search statement with an "AND" when the users enter data in both textboxes. Can you please help me solve this problem? I am using VB.NET (VS 2008)

Thanks,

Victor

Dim bs As New BindingSource() bs.DataSource = dt
C1TrueDBGrid1.DataSource = bs
Dim FilteredDT As DataTable

If Not (TextBox1.Text = String.Empty) Then Dim DV As New DataView(dt, "Receiver like " & "'" & TextBox1.Text & "'" & "", Nothing, DataViewRowState.CurrentRows)

FilteredDT = DV.ToTable
C1TrueDBGrid1.DataSource = FilteredDT
End If

If Not (TextBox2.Text = String.Empty) Then

Dim DV As New DataView(dt, "Donor like " & "'" & TextBox2.Text & "'" & "", Nothing, DataViewRowState.CurrentRows) FilteredDT = DV.ToTable
C1TrueDBGrid1.DataSource = FilteredDT
End If

----------------------------------

How to view a report which uses xml?

victor64 — Fri, 02 Jul 2010 23:03:49 GMT

Hello,

I'm using XML as a data source for my report, the report works ok by itself, however when attempting to run it using VB.Net, I receive a prompt for login and password, problem is the xml files are not password protected, seems like it can't find the xml files, please help me fix this problem. I am using Crystal Repory XI Release 2 with VS 2008.

Below is my code, and example of the content of the xml files. I am selecing the receiver/Donor nations' ID from a grid and copying it to textbox2, the code was simplified to focus on the problem.

1. Doner.xml

1
BEL

2
CAN

2. Receiver.xml

1
FRA

2
GBR

3
NLD

4
DEU

5
USA

3. Link.xml

1
1
1

2
2
1

Thanks,

4. Code

Imports System.Xml.Linq
Imports System.Data.OleDb
Imports Microsoft.VisualBasic.ControlChars
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
End Sub
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim myviewer As New AOP29VIEWER
Dim myreport As New AOP29_XML
Dim SearchCriteria As String
SearchCriteria = "{Link.Receiver_ID} in [" & TextBox2.Text & "] "
myreport.RecordSelectionFormula = SearchCriteria
MsgBox(myreport.RecordSelectionFormula)
Me.Visible = False
With myviewer
.CrystalViewer1.ReportSource = myreport
.ShowIcon = False
.Show()
End With
Me.Cursor = Cursors.Default
myreport = Nothing
End Sub

Thanks

Victor

Push offset to one application

bizzpu — Thu, 01 Jul 2010 09:46:27 GMT

Hy all!

Inspired by post that I send yesterday and I get fast answer, I would like to know if someone can know how push some offset to running application in VB.NET?

For example this offset to one application:

PUSH OFFSET 011E8FCC ;pointer to "popup"
PUSH OFFSET 0633A358
CALL 0051BA6F

Thanks!

Bizz

Reading file in VB.Net

bizzpu — Wed, 30 Jun 2010 13:14:27 GMT

Hy guys, I'm new here and I have one error...

I wanna read from one *.ini file but not clasic read.

Here is content of file confing.ini that I wanna read:

[Config]
String0=some text1
String1=some text2
String2=some text3
....

Read that I wanna get is value of String1 for example, in this case some text2.

Is this possible and if it is how can I made that?

Thanks,
Bizz

Adding Tags to image files

emompong — Fri, 26 Feb 2010 12:11:16 GMT

Hi!

I am developing an IMAGE TAGGER SYSTEM which can add TAGS/KEYWORDS to image files.
It's function is to save the information in the file itself..

For example, i have an image file named WHITEHOUSE.jpg and using my system.. i added a tag/keyword BUILDING and save the image file..

Once i search on my computer (the search engine in start menu).. all image files containing the TAG of BUILDING will be displayed in search results.

I know it is possible and i started in reading files properties/metadata and i'm done READING those data..

Now i am working with manipulating those data or metadatas.. I have this code and an error exist..

Is this code right?? will it save the keyword to image files?

If not, then please Help me.. I am searching all articles and forums for this kind of project, and result is still ZERO 0.

If Anyone of you guys know this stuff, please. I really need your Help..

Here are my codes for adding keywords: Error exist in the Bold line of the code

[code]Dim oSummProps As DSOFile.SummaryProperties
Dim strTmp As String = String.Empty
Dim oDocument As New DSOFile.OleDocumentPropertiesClass()
odocument.Open("c:\BSabellaRabano10151929.jpg", False, DSOFile.dsoFileOpenOptions.dsoOptionUseMBCStringsForNewSets)

odocument.SummaryProperties.Title = txtTitle.Text
odocument.SummaryProperties.Comments = txtComments.Text()
odocument.SummaryProperties.Keywords = txtKeywords.Text
odocument.SummaryProperties.Subject = txtSubject.Text
odocument.Save() [/code]

by the way.. I already add the DSO File as reference..

I am expecting replies from you Guys! Thank you very much in advance!

parsing a csv file

rjhe22 — Wed, 30 Jun 2010 06:27:00 GMT

hi
we are trying to use google to get exchange rate prices.
they use a csv file which we get the code to go out and get.
what im trying to do is pick the first line of the file and just use that. i have the following code but its not just picking the one line.
anyone any ideas

[code]
Dim strURL As String
'Creates the request URL for Yahoo
strURL = "http://www.google.com/finance/historical?q="
strURL &= Me._symbol
strURL &= "&output=csv"

Dim req As System.Net.WebRequest
Dim resp As System.Net.WebResponse

req = System.Net.HttpWebRequest.Create(strURL)
Try
resp = req.GetResponse()

'Read the answer from the Web site and store it into a stream
Me._reader = New IO.StreamReader(resp.GetResponseStream)

Me._reader.ReadLine()
' reads the second line and splits it into a string array.
Dim firstLineOfData As String() = Me._reader.ReadLine().Split(New Char() {","c})
MsgBox(firstLineOfData)

' first field in array
Dim theDate As Date = Date.Parse(firstLineOfData(0))

'Parse the header to create columns
Me._history = New DataTable("YahooLastPrice")

'Parse the body of the downloaded data
Me.header(Me._history)

Me.body(Me._history)
resp.Close()
[/code]

New sub of function

Hans — Tue, 29 Jun 2010 16:56:18 GMT

Hi,

When I enter the sub or function line the sub/function is created empty (only the end sub/end function is generated. How can I extend this with my own default code block I use for every sub/function on creation of the sub/function ?

I use Visual Studio 2008.

Thx.

Problem with Saving image in SQL Server

sidind123 — Tue, 29 Jun 2010 04:08:50 GMT

I want to save image from Picture box to SQL Server DB. I am trying to do this using the following code but cannot able to do so. Please help.

My Code Snippets are as following:

Dim fs As FileStream = Nothing
fs = New FileStream(picPhoto.ImageLocation, FileMode.Open)
Dim fi As FileInfo = New FileInfo(picPhoto.ImageLocation)
Dim temp As Long = fi.Length
Dim lung As Integer = Convert.ToInt32(temp)
Dim picture As Byte() = New Byte(lung - 1) {}
fs.Read(picture, 0, lung)
fs.Close()

Dim FileName_Renamed As Odbc.OdbcParameter = Nothing
Dim pic As Odbc.OdbcParameter = Nothing

CN.OpenConnection()
CMD = New Odbc.OdbcCommand("SavePhoto", CN.DBConnection)
CMD.CommandType = CommandType.StoredProcedure

pic = New Odbc.OdbcParameter("@Picture", Odbc.OdbcType.Image)
pic.Value = picture
CMD.Parameters.Add(pic)

FileName_Renamed = New Odbc.OdbcParameter("@ID", Odbc.OdbcType.VarChar)
FileName_Renamed.Value = txtID.Text
CMD.Parameters.Add(FileName_Renamed)

CMD.ExecuteNonQuery()
CN.closeconnection()

My Stored Procedure are as following:

USE [EarthMovers]
GO
/****** Object: StoredProcedure [dbo].[SavePhoto] Script Date: 06/29/2010 13:22:35 ******/
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
-- =============================================
-- Author: Siddhartha Saha
-- Create date: 29/06/2010
-- Description:
-- =============================================
ALTER PROCEDURE [dbo].[SavePhoto]
-- Add the parameters for the stored procedure here
(
@Picture image,
@ID varchar(60)
)
AS
UPDATE ItemDimension SET itmdmnPhoto=@Picture WHERE itmdmnID=@ID

integer error

haqayyum — Sun, 27 Jun 2010 23:01:07 GMT

hello fellows

i'm using visual basic 2008 and i'm beginner developer and now i am doing working on a project expense budget tracking i have a problem that i am adding 6 textboxes in the form and a button which name is calculate and i am adding the following code under calculate button

Dim txt1,txt2,txt3,txt4,txt5 as Integer
txt1=Textbox1.Text()
txt2=Textbox2.Text()
txt3=Textbox1.Text()
txt4=Textbox2.Text()
txt5=Textbox2.Text()
Textbox6.Text()=txt1+txt2+txt3+txt4+txt5
Now when i enter the numeric value in all of the above mentioned field and click the calculate button the result is true but when i missing to enter the numeric value in any textbox and click in calculate button there is showing an error please tell me why and send the right coding. thanks

stuck in loop HELP

afalbusa — Wed, 26 May 2010 12:29:22 GMT

Hello I am have a problem getting out of a while loop, i am bringing in ascii code from ports on three diferent machines in to the serial port on a computer, two of the machines give form feed (12) at the end of the printout but one machine does not it only gives out line feed and carriage return (10)(13) is there another way of getting out of this loop, my be to do with the readbuffer being empty, please help

Andy.

Input = serialport1.readchar

While input <>(12)

Dataline =””

While input<>(10)

If input<(32) then

Else

Dataline = dataline & chr (input)

End if

Input = serialport1.readchar

End while

Input = serialport1.readchar

w.writeline (dataline)

End while

Listbox1.items.add (“closing file”)

w.flush() ‘w is the stream writer

w.close()

open a text file from the vb form

afalbusa — Sun, 23 May 2010 11:44:23 GMT

hello I have a problem, I have some code that monitors the serial port on the computer, when data is recieved it creates a .txt file, I want to display the .txt file with the push of a button but i cant seem to get the .txt file to open any help would be gratefully recieved

Andy.

Accessing MS-Access Database in a Webserver

ajayan1976 — Wed, 23 Jun 2010 07:12:29 GMT

Friends,

I am writing a client / server program where the database will be stored in the web server (www.yourdomain.com). The server is in my control and I have ftp access. Now I want to write a program to save the records in this server from the client side vb.net application

Kinldy give the solutions.

Regards

Ajay

Http request

nabilabdoun1 — Thu, 17 Jun 2010 08:24:38 GMT

Dear,

When I tried to read the data of a http link using VB.net, an error occur. The error is:

The remote server returned an error: (406) Not Acceptable.

This error is only occur for some links.What is the reason?

Thank you

B.R.

How To Add Each href To A ListBox If It Has A Specific Class

tradingjamie — Thu, 24 Jun 2010 15:43:25 GMT

Hi All,

I hope you can help me with this... Ive just started vb.net programming, and Im trying to make an application to collect twitter usernames and addresses - this is how all the links look:

USERNAME

So in the tag of , for each element, there is a class called "twtr-user"

So basically, is there a way to go through the webpage and add each username and address to a listbox?

This is what Ive come up with so far:

[code]For Each temp As HtmlElement In wb.Document.Links
Dim str As String
str = temp.GetAttribute("class")
If str = "twtr-user" Then
ListBox1.Items.Add(str)
End If
str = Nothing
Next[/code]

The problem is that (1) this doesnt work at all (2) Is there a way to add the href address and also the outer text?

For the life of me I cant quite figure out how to do this - I keep coming back to GetAttribute("class") but this doesnt seem to work!

Thanks for all your help

Pulling time from online servers thru VB.NET

vamshivemula — Tue, 22 Jun 2010 01:40:19 GMT

Hi,

My requirement is to pull time from TIME SERVERS through .NET code to avoid time manipulation in my project which needs to record time for users when they start particular task and system clock can be changed to record wrong timings. I need to pull this time in IST.

I was able to get some links but unable to write codeThe links are:
NIST Internet time service
ftp://time-a.nist.gov/pub/daytime/
NIST Internet Time Service clock
Current local time in India

One of the above link has source code of windows utility in C# which I am not familiar with. We can just get the code from the utility that just queries the server and then use the time. We have to make the application to randomly choose a server from a list of servers if you have query lots of times as they deny requests if queried multiple times in a period.

Please help me with sample code.

CROSS POSTING: I have also posted this same question in this VBDOTNETFORUMS in "Windows Forms Discussion Thread" too.

converting digit

shahar786 — Wed, 16 Jun 2010 03:20:35 GMT

hi all
Anyone know what to use to convert an 2 digit integer e.g. 93, to a 4-digit integer e.g. 0093?

thanks

Create Log in in Vb2008 by retieve username and password from sql server 2005

kda — Thu, 17 Jun 2010 02:15:24 GMT

HI all,

I want to create form log in in vb2008 and retrieve user name and password from sql server.
Could u pls help me to solve this.?

Thanks

How to calculate date time ?

minasaeedi — Thu, 10 Jun 2010 10:47:37 GMT

Hi.I need help to write a code that can calculate the difference between the date time a article has been published and date time of now.like this example :

this article has been published 4 minutes ago...

this article has been published about 2 days ago...

The code has to be in vb.net
Thanks in Advance.

Inaccuracy in check for child nodes.

xmlstarter — Thu, 10 Jun 2010 07:48:37 GMT

Hi , i have this function for the purpose of parsing an XML file

Public Function XMLParser(ByVal xPath As String, Optional ByVal Nodename As String = Nothing) As ArrayList
Dim arylst As ArrayList = New ArrayList
Dim xmldoc As XmlDocument
Dim xmlnlist As XmlNodeList
Dim xmln As XmlNode
Dim cnt As Integer

Try
xmldoc = New XmlDocument
xmldoc.Load(xmlfilePath)
xmln = xmldoc.SelectSingleNode(xPath)

If xmln.FirstChild.Name <> "#text" Then
xmlnlist = xmldoc.SelectNodes(xPath)

For Each xmln In xmlnlist

For cnt = 0 To (xmln.ChildNodes.Count - 1) Step 1

If (Nodename = Nothing) Then

arylst.Add(xmln.ChildNodes.Item(cnt).Name)
arylst.Add(xmln.ChildNodes.Item(cnt).InnerText)

Else

If xmln.ChildNodes.Item(cnt).Name = Nodename Then
arylst.Add(xmln.ChildNodes.Item(cnt).InnerText)
End If

End If

Next

Next

Else

If (Nodename = Nothing) Then
arylst.Add(xmln.Name)
arylst.Add(xmln.InnerText)

Else
If xmln.Name = Nodename Then
arylst.Add(xmln.InnerText)
Else
Throw New Exception(" Node with name '" & Nodename & "' Not found ")
End If

End If

End If

Return arylst
Catch ex As Exception

Throw New Exception("Exception Thrown from Function : XMLParser() " & ControlChars.NewLine & ex.Message)
End Try
End Function

the behaviour of the function is as follows:

1) If no nodename (2nd parameter)specified the arraylist
will bear both name of each child node followed by the value of the child node
2) If however the call is made with the child node name provided then the arraylist
will bear only the values of all childnodes with the specified name
3) If there are no child nodes present then the name and value of the current node will
returned if the 2nd 'Node Name' parameter is not provided , if the node name is provided
then only the value of the node is returned.

However there does not seem to be a reliable manner to check for the Presence/absence of child nodes hence the check
' If xmln.FirstChild.Name <> "#text" Then ' .
Other checks such as
xmln.HasChildNodes
xmln.ChildNodes.Count
fail when the final nodes being checked, has a value.

i.e. assume the following xpath /configuration/appSettings/irp/file/location/source
then if the source node has a value such as is the case here
hibiscus
then both
xmln.HasChildNodes
xmln.ChildNodes.Count

returns true which if feel is incorrect.
it should return true only in such a scenario.

trunk

the only way i have got around this problem is this
' If xmln.FirstChild.Name <> "#text" Then ' , which i find a bit naif so i am looking for suggestion which will get the function to work properly and be able to detect the absence of the child nodes even if the node has values.

Need help about face recognition absence system...

Alveen Scofield — Thu, 27 May 2010 03:50:53 GMT

Anyone can help me to make a face recognition absence system?

How to convert Vb6 to VB.NET?

coleman84joyner — Tue, 25 May 2010 22:21:23 GMT

Does any body know how to convert vb6 project files to VB.NET 2008?

I want to convert this program -
http://www.a1vbcode.com/app-3519.asp

The default converter wizard does converts with errors.

Can some body help me please?

VBNet2008 How to retrieve Data from Excel Spreadsheet

Lennie — Tue, 25 May 2010 20:28:45 GMT

Hi Friends,

I need your help. Please help me.

I have not written logic to retrieve data from Excel Spreadsheet and update SQL SERVER Table before using VBNet2008 in Window application. The Excel Spreadsheet is attached here.

Please share with me sample coding so that I can learn how to do it. I tried checking the Google and I couldn't find any.

Vb.Net Ftp Control & Class Library

mobiwiki — Sun, 09 May 2010 10:13:28 GMT

hi,

I just built a new ftp control and class library in vb.net 2008. It might be helpful for applications with ftp functionality.

Link:http://www.zianole.info
Looking for your comments.

Thanks.

How to change the format of the entered value in a textbox?

Learner7 — Thu, 29 Apr 2010 01:35:38 GMT

Hi,

I have three text boxes on my form as following:

1) txtTelephone
2) txtDate
3) txtPrice

What actually I need to know is, how the text box automatically change the values to the below format:

txtTelephone : If I enter 0403507624 it should change automatically the entered values to this format 040 350 7624

txtDate : If I enter 28042010 then it should be changed to 28-APR-2010

txtPrice : If I enter 513458 then it should be changed to 513,458.00 automatically.

So, what code should I write to achieve this problem?

Thanks.

Make a button change the background image of a menustrip?

adilaa — Wed, 05 May 2010 15:21:27 GMT

i am making a webbrowser with a Theme Selector, i have the images all ready, they will be placed onto 3 menustrips (Tab Control is docked, so is the menustrips). i need help making it so that if i click the button, it changes the backgroundimage of the Menustrips to the image that is in the workspace (I Copy pasted it into workspace) i can see it there.

Program users and authorities with phone book

avocato — Mon, 17 May 2010 11:49:00 GMT

Li with the first participants in your forum to offer you a great day program supported by the phone book using the passwords and accounts and you can add or delete any user of the program

And an excuse for thinness in the English language

With my greetings and best wishes

Avocato

The Microsoft Jet database engine could not find the object

viper5646 — Thu, 13 May 2010 20:16:53 GMT

[quote]Hi all
I'm trying to import data from an exel sheet to a data grid but I keep on getting the following error "The Microsoft Jet database engine could not find the object"

Here is my code
Thanks

[/quote]
[quote]Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class ExellFrm

Private Sub ExellFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim myPath As String = "C:\Users\John\Desktop\book1.xls"
Try

' importing Data from Excel
Dim DtSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source='" & myPath & " '; " & "Extended Properties=Excel 8.0;")
MyConnection.Open()
' Select the data from Sheet of the workbook.
MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [test$]", MyConnection)
DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)
exellgrid.DataSource = DtSet
MyConnection.Close()
Catch ex As Exception
MessageBox.Show("ERROR " & ex.Message)
End Try
End Sub
End Class[/quote]