Visual Basic .NET

SByte

misuk11 — Thu, 03 Dec 2009 10:31:03 GMT

Im mainly a c# developer and am trying to convert some existing vb.net code to c#. This is one line i want to convert

Dim sbBuf(1024) As SByte

in c# it should be like this

SByte sbBuf = some value;

as SByte is an 8 bit signed integer, allowable values should be -127 to + 127

so how can the vb code above create it as 1024 ?

VB.NET click event

inliten — Wed, 02 Dec 2009 15:54:57 GMT

I have a web page, VB.NET code behind. On the page are text boxes for user input and a Submit button. The text input connects to a SQL Server db. When the user enters data into the text boxes and clicks Submit I want to verify that the information is not already in the database. I figured a Dim statement and a SQL Delete command. I believe if the information is not already in the database then the Delete command will have no affect. I also figured an IF statement to do this.

I do not know how to write the If portion of the statement, Then would be the SQL Delete command. Next would be an Else statement for a SQL Insert command since the information is not in the database or has been deleted. I do not want to indicate that the information is already present - just want it deleted and then added.

Any suggestions are encouraged, welcomed, and appreciated.

John

Get the receiver e-mail address from a MS Access DB's column !

tugberk_ugurlu_ — Wed, 02 Dec 2009 13:33:22 GMT

Hi. I am tring to get the receivers' e-mail address from a Ms access (mdb) database but I am failing. I had another thread but it started to get longer and I decided to open another one. Let's make a summary. Below is my VB code;

Imports System.Net.Mail
Imports System.IO
Imports System.Net
Imports System
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
Partial Class mail_Default
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Gonder()
    End Sub
    Public Function GetHtml(ByVal sUrl As String) As String
        Dim oWebRequest As WebRequest = System.Net.HttpWebRequest.Create(sUrl)
        Dim oStreamReader As New StreamReader(oWebRequest.GetResponse().GetResponseStream())
        Dim sResult As String = oStreamReader.ReadToEnd()
        oStreamReader.Close()
        Return sResult
    End Function
    Public Function ReplaceHtml() As String
        Dim body As String = GetHtml(Server.MapPath("HTMLPage.htm"))
        body = body.Replace("FromName", TextBox1.Text)
        body = body.Replace("FromSur", TextBox2.Text)
        body = body.Replace("MesRep", TextBox3.Text)
        Return body
    End Function
    Private Sub Gonder()

        Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
        Dim URL As String = Request.ServerVariables("HTTP_REFERER")

        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|MyDatabase.mdb"
        Dim conn As New OleDbConnection(connectionString)
        Dim sql As String = "SELECT * FROM Email"
        Dim cmd As New OleDbCommand(sql, conn)
        conn.Open()
        Dim reader As OleDbDataReader
        reader = cmd.ExecuteReader()
        While (reader.Read())
            Console.WriteLine(reader.Item("EmailsTo"))
            'Console.Write(reader.GetString(0).ToString() & " ,")
            'Console.Write(reader.GetString(1).ToString() & " ,")
            Console.WriteLine("")
        End While
        reader.Close()
        conn.Close()

        message.IsBodyHtml = True
        message.From = New System.Net.Mail.MailAddress("info@tugberkugurlu.com")
        message.To.Add(reader("EmailsTo").ToStriing() & ",")
        message.Bcc.Add("info@tugberkugurlu.com")
        message.Subject = "Work & Travel Application Form From " + URL
        message.Body = ReplaceHtml()
        ' message.Attachments.Add(New System.Net.Mail.Attachment("privacy.doc"))
        Dim smtpClient As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient()
        ' Try
        smtpClient.Send(message)
        Response.Redirect("proceeded.aspx")
End Sub

And My page URL for this is http://www.tugberkugurlu.com/mail/ToDB.aspx

I keep getting this error on this project;

Server Error in '/' Application.

No data exists for the row/column.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.InvalidOperationException: No data exists for the row/column.

Source Error:

Line 56:         message.IsBodyHtml = True
Line 57:         message.From = New System.Net.Mail.MailAddress("info@tugberkugurlu.com")
Line 58:         message.To.Add(reader("EmailsTo").ToStriing() & ",")
Line 59:         message.Bcc.Add("info@tugberkugurlu.com")
Line 60:         message.Subject = "Work & Travel Application Form From " + URL

Source File: d:\inetpub\tugberkugurlu.com\www\mail\ToDB.aspx.vb Line: 58

Anybody has a idea on thşs. My column, table and databse names are correct but I am getting this error. Thanks a lot ;)

SMTP works in solution, but fails as imported class

mahalie — Sat, 14 Nov 2009 00:38:40 GMT

Enviro: 2007 Exchange Server, 2 Intranet servers (1 deploy, 1 dev) running .NET 2.0 app - all within same network / behind firewall. I am working on a legacy app by our previous web guy, when our sysadmin upgraded to exchange 2007 and put it on a new server all of the mail functions in old app broke. Had to upgrade to .NET 2.0 (from 1.x) and nothing worked untill I tried new SMTP code in a local function in the codebehind of a page of the app instead of calling a class, as follows:

Function SendNow(ByVal strFrom As String, ByVal strTo As String, ByVal strSubject As String, ByVal strBody As String) As Object

 Dim msg As New MailMessage()

 Dim smtp As SmtpClient

 msg.From = New MailAddress(strFrom)

 msg.To.Add(strTo)

 msg.Subject = strSubject

 msg.Body = strBody

 smtp = New SmtpClient("OurMailServer")

 smtp.UseDefaultCredentials = True

 smtp.Send(msg)

 Return True

End Function

So the above works fine, in that file. The problem is that the app was designed to call a class that resides on the dev server. When I move this same code into the class on the dev server I get transport errors. I think this has to do with the fact that we're using integrated authentication with impersonation=true and it seems to get dropped due to the class being on a different server (even though it's behind our firewall).

I could either try moving the classes to the production server or somehow keep the authentication in the class working through the hops. Either way I need to keep the class because it's referenced all over the place (in more than just this app). I am not that savvy in .NET and I cannot figure out where the setting is within the app that defines where the class is imported from. It just seems to be available no matter where the app is deployed. (Working files are on same server as classes, then publish the app to production server).

Can someone give me a clue?

TAPI in .NET

alihaider — Mon, 25 Aug 2003 06:31:23 GMT

Hello!
Does anyone have any idea about using TAPI in .NET.

Urent

bbye

@li

Don't want rounded value

Rajneesh Verma — Thu, 26 Nov 2009 21:47:03 GMT

Hi,

i am using coding in vb.net and i want some values as

min=110 (integer Variable)

If (min > 59) Then

hrs = hrs + (min / 60.0)

min = min Mod 60

'min = tmin - fmin

'p = hrs.ToString() + min.ToString()

'Else

' p = Val(tb3.Text) - Val(tb2.Text)

End If

If (min > 59) Then

fmin = (min / 60)

' Here i want fmin=1 instead of 2 ( fmin is integer)

min = min Mod 60

' Here i want min=50

End If

-------------------------------------------Over All Scenario is -------------------------------------------------

from time in textbox = 1755 and in to time=0455

output would be (total time = to time - from time) 1250

its just a example user can enter any time duration in text boxes as 0445 to 1859 etc etc......

All scenario is here just try to solve out my first query and if any one has idea regarding whole problem then really appreciated ............!!!!!!!!

Thanks...

Increment Operators in VB.Net

lokanadham — Mon, 17 Mar 2008 06:04:01 GMT

Hi All,

Do we have increment operators in VB.Net?

I want to use post increment and Pre increment operators in VB.Net.

I want touse the statement like, i++ and ++i.

Does VB.Net support this kind of statements?

How can I make an array created&filled in by one Sub accessible from another one?

igorid — Sun, 29 Nov 2009 00:03:31 GMT

I have a RadioButtonList control which triggers a Sub LegalGaps on SelectedItemChanged event. This Sub creates and fills in an array the size of which depends on the User's choice of radiobutton options. The second Sub AvailableDays shall be able to read that array and highlight the days in the Calendar control accordingly on DayRender event. May I somehow declare an internally created variable a public one?

P.S.

I don't want to declare the array "Public" outside LegalGaps Sub as in that case I would have to create an oversized array.
I can't incorporate LegalGaps into AvailableDays as this would result in running LegalGaps 35 times, i.e. for each day on the Calendar, when running it once is quite enough.

Function to check consective 5 same letter or digits

venkatramcse — Wed, 25 Nov 2009 13:33:36 GMT

Hi folks,

I need a help. Function to read consective 5 same letter or digits from the String given.

Eg: String get = "vennnnnkat";

I need true or false based on the result.

Thanks,

Venkat.

code in vb

ramesh866 — Thu, 26 Nov 2009 17:29:09 GMT

hi ,

TextBox txt = (TextBox)Page.PreviousPage.FindControl("TextBox1");
TextBox1.Text = txt.Text

this code is to get the text from another web page.. this is in c#.. can anyone put it in vb????

ANY ALTERNATIVE OF RESPONSE.REDIRECT

RollerCoster — Sat, 21 Nov 2009 06:44:52 GMT

HI Every One

I am using a client.openRead to send request and passing line through finalurl.

Dim data As Stream = client.OpenRead(finalurl)

Now my server blocks ports and i am getting error on this line now is there any other solution to client.OpenRead

and what ever i am sending throught this is code is going on other company's server so i can't tell then to change their way so is there any other solution to this?

I AM THINKING THAT IF PORTS THEN IMPOSSIBLE TO SEND REQUEST.SO ONLY WAY IS TO CHANTGE SERVER WHER I HOST MY SITE

Dim data As Stream = client.OpenRead(finalurl)

and in final url i have other sites url and some querystring data

for example

dim finalurl as string="www.abc.com?name=RollerCoster&mobile=12345678"

I already use WebHttpRequest but it not works still server not allow it.But i try it with response.redirect and it works but not suiteable to my conditions.i want control on my site so i was using Dim data As Stream = client.OpenRead(finalurl) but now server block some ports due to some reasons

my first object?

dotnetnoob — Fri, 20 Nov 2009 16:46:15 GMT

Hi All: This is so basic a question I'm not sure where to ask it...but here goes.

I have a sub that takes a posted image file and resizes it, then saves it to a particular folder on the server. After the image manipulation is complete, I need to take the information about the new image (size, name, etc.) and store it in a SQL2005 table, along with other information submitted in a form along with the posted file.

I currently do all of this in a single sub that's invoked by the form's submit button. I create a new System.Drawing.Image.Size object to hold resized image width/height, and then create a new System.Drawing.Bitmap that takes the posted file and the new size constraints, then save the new bitmap in the correct imageFormat to disk. I then create a sql command to insert the information about the new image into a table, using the info in the Size object and the posted file name, as well as some other text fields and values posted in the form.

All this works properly in a single sub, but I really need to separate the image resizing and storing in the dB so that I can invoke them independently. Sometimes I may want to edit just the existing dB info, or replace the existing image, or both, so it seems like I should separate the image uploading from the dB update and call one or both depending on what's required. But, I'm stuck with how to get the new image sizing info back out of the sub, so I can pass it into the sub/function that updates the dB?

To do that, it seems like I would need to create a new "image object" that would hold all the information about the image (it's name, it's resized values, etc.), so that I can pass those parameters to the dB insert/update function...is that possible? Do I need to put the resizing functionality in a class object? I'm lost on what the basic infrastructure should be for this.

Thanks for any suggestions!

DLNA Player

KyD — Fri, 19 Jun 2009 18:36:16 GMT

Hi,

I have a DLNA server setup and it works fine. I would like to write a small app play the music, vids and pics. however, when I googled "DLNA VB.net" i am not getting an samples to use.

So my questions are; is it possible to view the DLNA files via VB.net? If so, how?

Thanks for reading my post.

If Or statement in my form

cmt9000 — Tue, 24 Nov 2009 14:40:02 GMT

Hi,

I have an asp.net web form that uploads files. Part of the code seems messy to me, but I can't figure out another way to write it.

Here it is:

                myFileExt = System.IO.Path.GetExtension(postedFileName).ToLower

                fileType = Me.flImageFromComputer.PostedFile.ContentType.ToLower
                myUploadedFilename = folderPath & sysID & "\" & mediaID.ToString & myFileExt


                If myFileExt = ".jpg" Or myFileExt = ".gif" _
                Or myFileExt = ".png" Or myFileExt = ".swf" _
                Or myFileExt = ".flv" Or myFileExt = ".mov" _
                Or myFileExt = ".mp3" Or myFileExt = ".doc" _
                Or myFileExt = ".docx" Or myFileExt = ".pdf" _
                Or myFileExt = ".xls" Or myFileExt = ".xlsx" _
                Or myFileExt = ".avi" Then
                    Me.flImageFromComputer.SaveAs(myUploadedFilename)

Is there a better way to write this without all the "Or" s ?

Thanks!

store order status strings in VB

bexasp — Mon, 23 Nov 2009 09:05:11 GMT

Hi ,

can any one tell me how will this be in VB?

public static readonly string[] OrderStatuses =
{"Order placed, notifying customer", // 0
"Awaiting confirmation of funds", // 1
"Notifying supplier—stock check", // 2
"Awaiting stock confirmation", // 3
"Awaiting credit card payment", // 4
"Notifying supplier—shipping", // 5
"Awaiting shipment confirmation", // 6
"Sending final notification", // 7
"Order completed", // 8
"Order cancelled"}; // 9

Thanks

Getting a list of domains

TheDiddy — Mon, 23 Nov 2009 21:06:32 GMT

How do I get the list of available domains that a windows user can log on to. I am using LogonUser to validate credentials but my users have the ability to use different domains and I want to populate their options with the options windows provides at Log On.

Any ideas??

Thanks in advance.

Sean

Creating a QWERTY Keyboard String Array

CraigMuckleston — Mon, 23 Nov 2009 12:34:58 GMT

I have the following that creates an array of the alphabet (A-Z)

_Alphabet = New ArrayList()

For i As Integer = 65 To 91 - 1

_Alphabet.Add(Convert.ToChar(i))

I want to populate this into some buttons in a qwert keyboard manner. However my array is in A-Z list. Is there a way to populate the list in a qwerty fashion?

API Calls in vb.net 2008

samuelchandradoss — Sat, 21 Nov 2009 12:17:04 GMT

i want to know how to use api calls in vb.net2008. in visual basic 6.0. we can find the list of api calls in add in manager . in vb.net2008 how to find it..

Create A Fixed Text File From SQL DB Table

mahonek — Wed, 28 Oct 2009 22:21:39 GMT

Sources of Assistance:

http://it.toolbox.com/ask-a-question/asp-dotnet-l

http://forums.asp.net/default.aspx/7

Create A Fixed Text File From SQL DB Table

Hello, I am using VS2005 and would like to add script to my aspx page to Output a Fixed Text File From my SQL DB Table to a location on the network. I did this in VB6 using a FREEFILE and PADSTRING off of an Access DB table. However, I can't seem to get it right in the .NET aspx environment. Can someone assist me with this? I have added the VB6 script that is working now and the .NET aspx vb script that I'm trying to move it to. Thank you.

VB6 SCRIPT:

Public Sub tbl2txt()

Dim wrk As dao.Workspace

Dim db As dao.Database

Dim cnn As dao.Connection

Dim rs As dao.Recordset

Dim strTable As String

Dim strFileName As String

Dim intFileNum As Integer

On Error GoTo err_Tbl2Txt

strTable = "QBtmLine"

' Create Microsoft Jet Workspace object.

Set wrk = CreateWorkspace("", "admin", "", dbUseJet)

Set db = wrk.OpenDatabase("U:\DEVHELP_DBs\Ilfornaio\Access2000_a\botline_2k.mdb")

Set rs = db.OpenRecordset("Select * From " & strTable)

With rs

'check to see that records were returned

If rs.RecordCount < 1 Then

MsgBox "No records found for Bottom Line Check File"

Me.Refresh

End If

intFileNum = FreeFile

strFileName = "H:\Acct\BT_2kTesting\blinetxtapp_2k\Blintes1.txt"

Open strFileName For Output As intFileNum

.MoveFirst

Do While Not .EOF

'File is fixed

Print #intFileNum, Format(!paydate, "mm/dd/yy") _

& PadString(Format(!checkamt, "###,#00.00"), " ", 13, False) _

& PadString(!Name, " ", 80, True) & PadString(!add1, " ", 35, True) _

& PadString(!add2, " ", 35, True) & PadString(!add3, " ", 35, True) _

& PadString(!add4, " ", 2, True) & PadString(!postcode, " ", 10, True) _

& (Format(!docdate, "mm/dd/yy") _

& PadString(Format(!invoiceamt, "###,#00.00"), " ", 13, False) _

& PadString(!vendor, " ", 72, False) & PadString(!invno, " ", 34, False) _

& PadString(!checkno, " ", 24, False) & PadString(!sname, " ", 25, True) _

& PadString(!Group, " ", 15, True) & PadString(!groupname, " ", 35, True))

.MoveNext

Loop

End With

Close intFileNum

Set rs = Nothing

db.Close

Set wrk = Nothing

Exit Sub

err_Tbl2Txt:

MsgBox "Error" & Err.Description & "occurred in Tbl2Txt, Correct then Rerun."

End Sub

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

ASP.NET .ASPX SCRIPT (NEED CORRECTING):

Dim objConn As Data.SqlClient.SqlConnection

Dim objComm As Data.SqlClient.SqlCommand

Dim objrec As Data.SqlClient.SqlDataReader

Dim strFileName As String

Dim intFileNum As Integer

Dim flag As Boolean

objConn = New SqlClient.SqlConnection

objConn.ConnectionString = "Data Source=CODA2K;Persist Security Info=True;password=codaprod; USER;Initial Catalog=CODAPROD;"

objConn.Open()

objComm = New SqlCommand("select * from tbl2txt", objConn)

objComm.CommandTimeout = 500

objrec = objComm.ExecuteReader()

flag = False

While (objrec.Read())

If objrec.recordcount > 0 Then

flag = True

intFileNum = FreeFile()

strFileName = "H:\Acct\BT_2kTesting\blinetxtapp_2k\Blintes1.txt"

Open strFileName For Output As intFileNum

'File is fixed

Print #intFileNum, Format(!paydate, "mm/dd/yy") _

& PadString(Format(!checkamt, "###,#00.00"), " ", 13, False) _

& PadString(!Name, " ", 80, True) & PadString(!add1, " ", 35, True) _

& PadString(!add2, " ", 35, True) & PadString(!add3, " ", 35, True) _

& PadString(!add4, " ", 2, True) & PadString(!postcode, " ", 10, True) _

& (Format(!docdate, "mm/dd/yy") _

& PadString(Format(!invoiceamt, "###,#00.00"), " ", 13, False) _

& PadString(!vendor, " ", 72, False) & PadString(!invno, " ", 34, False) _

& PadString(!checkno, " ", 24, False) & PadString(!sname, " ", 25, True) _

& PadString(!Group, " ", 15, True) & PadString(!groupname, " ", 35, True)))

Exit While

End If

End While

Close(intFileNum)

If flag = False Then

lblMessage.Visible = True

lblMessage.Text = "No Records Found. Please try again or call your Systems Programmer at 415-945-4202."

Exit Sub

End If

VB Coding Standards: Are, CInt, CBool, CStr, CDate and the remaining methods now obsolete?

mrplatypus — Wed, 18 Nov 2009 10:50:13 GMT

I hope that someone can help to provide me with information.

An interesting, "conversation", has occurred whereby I was informed that the methods (?) CInt, CBool, CDate etc are now considered obsolete when converting our variables from one type to another.

Please would someone confirm or deny this giving evidence from Microsoft?

Thanks, mrPlatpus

How to make OnSelectedIndexChanged fire an event without posting back the whole page?

igorid — Mon, 16 Nov 2009 16:36:10 GMT

I want my ListBox control to respond dynamically to a change of selected item. However, "OnSelectedIndexChanged" fires an event only when AutoPostBack is set to true. Having a dozen of controls updating each time a user makes a change in selection in a single one is quite annoying and irritates a lot. Is it possible to enable triggering an event for a dedicated control with OnSelectedIndexChanged?

I would appreciate an expert advice on this issue.

P.S. I need a simple non-AJAX solution.

Accessing a variable dimensioned in a for loop

chricholson — Thu, 19 Nov 2009 23:14:04 GMT

The subject almost sums this up. I have dimensioned a variable 'y' inside a for loop. If i then try and access this outside of the for loop I cannot. What is the reason for this and how can I correct it? Unfortunately I am not able to Dim the variable 'y' outside of the for loop.

Chris

add 4 hours to a datetime value

jula — Tue, 17 Nov 2009 12:03:43 GMT

hi can anyby help me to add 4 hours to the following datetime value

dimdate4pos = MM & "/" & DD & "/" & YY & " " & HH & ":" & MI & ":" & SS

Need help with coding a query creation interface

haggis999 — Wed, 18 Nov 2009 22:58:30 GMT

I am trying to implement an interface on an ASP.NET 3.5 web page that will let the user specify up to three conditions for insertion into a Linq to SQL query. It looks something like this:

DDL of column names DDL of logical ops TextBox for value

And/Or DDL DDL of column names DDL of logical ops TextBox for value

The logical operations DropDownList contains options such as Equals, Not Equals, Contains, etc. An example of user entry might be as follows:

FirstName Equals "Basil"

And LastName Not Equals "Brush"

Or Email Contains "hotmail.com"

I would wish this example of user input to be used to create the following code:

Dim Recipients = From ent In myDBC.Entrants _
                                Where ent.FirstName = "Basil" _
                                And Not ent.LastName = "Brush" _
                                Or ent.Email.Contains("hotmail.com") _
                                Select ent

My problem is that I don't know how to assemble my query from the values in the various DDLs and TestBoxes. Assistance would be much appreciated.

David

handle the popup messages thrown in web application using VB

bharathi_82 — Tue, 17 Nov 2009 15:29:46 GMT

I am developing a tool to automate testing of a web application. I want to handle the popup messages thrown in scenarios. The problem am facing is when the application runs a popup message is thrown, but only after a response is given to the message box(ie clicking on any buttons in the message box) the execution continues, till then the web browser is busy waiting for a response. Please suggest.