Visual Basic

Passing value within form and function VB.NET 2003

19-Jun-08 20:10

Does VB have a max string length ? Perhaps you just think this is what you got b/c the debugger has a max string length ?

Christian Graus

Please read this if you don't understand the answer I've given you

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Re: vb6 string truncated

AJ du Plessis19-Jun-08 20:25

AJ du Plessis

19-Jun-08 20:25

Yes it is just the debugger that is truncating the string. I wrote the string to a file and debugged the sql in the query analyzer.

Thank you for the response

drexler_kk19-Jun-08 16:14

drexler_kk

19-Jun-08 16:14

Dear all,

I have a problem with passing the return Boolean.This project is running with VB.NET 2003 with MySQL database. I'm using a Function to call a login verification as shown below:

Public Function FurtherUser_Authenticate() As Boolean
        Dim FrmAuthen As New FrmAuthen
        FrmAuthen.StartPosition = FormStartPosition.CenterScreen
        FrmAuthen.Show()

End Function

And next I will prompup a form for the user to insert username and password for further verification. This will check
the user login name and password from MySQL database for verification. After success verification I would like to return
UserVerifySuccess = True to my function and the function will allowed the user to do some Setting on my window form application.

The following are the code for loading of the FormSetting which need a further user verification to login because of security issues
of the user:

Private Sub FrmSetting1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  blnMustAuthenticate = True

  If blnMustAuthenticate Then
         UserVerifySuccess = False
         Me.Close()
            
         Further_Authenticate()
            
            If UserVerifySuccess = True Then
                Me.Show()
            End If
  End If


  End Sub

The code that used at FrmAuthen to check the user is allowed to do the setting is below:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, pass As String
        Try
            ObjComm = New OdbcCommand("SELECT POS_CASHIER.LocationCode, CashierID, CashierName, Pwd, IF(POS_CASHIER.IsActive=1 AND POS_CASHIERGROUP.IsActive, 1, 0) AS IsActive, CanChangePwd, POS_CASHIER.GroupID, GroupName, IsFullAccess  FROM POS_CASHIER INNER JOIN POS_CASHIERGROUP ON POS_CASHIER.GROUPID = POS_CASHIERGROUP.GROUPID AND POS_CASHIER.LocationCode = POS_CASHIERGROUP.LocationCode WHERE CashierID='" & TextBox1.Text & " ' ", ObjConn)
            ObjConn.Open()
            ObjRead = ObjComm.ExecuteReader
            If ObjRead.Read Then
                pass = ObjRead.Item(3)
                x = ObjRead.Item(8)
                ObjConn.Close()
                If TextBox2.Text = pass Then
                    If x = "1" Then

                        Me.Hide()
                        Return (UserVerifySuccess = True)  ' << I need to return this to my function. Thank you~!

                    Else
                        ObjConn.Close()
                        MessageBox.Show("Sorry. You are not allowed to run this task.")

                    End If
                Else
                    ObjConn.Close()
                    MessageBox.Show("Your password is invalid.")
                End If
            Else
                ObjConn.Close()
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            ObjConn.Close()
        End Try


    End Sub

Thats all I need someone can give me a guide whats the problem with my code here? Anyone can give me some idea/solution?

Thanks for reading.

Regards
Drex

Re: Passing value within form and function VB.NET 2003

Christian Graus19-Jun-08 18:41

Re: Passing value within form and function VB.NET 2003

19-Jun-08 18:41

drexler_kk wrote:
Public Function FurtherUser_Authenticate() As Boolean
Dim FrmAuthen As New FrmAuthen
FrmAuthen.StartPosition = FormStartPosition.CenterScreen
FrmAuthen.Show()End Function

Well, this is obviously a disaster. Notice how your code doesn't return anything at all ? It's a travesty that this compiles.

Also, when you call Show(), you get a modeless form. Your app has essentially shown a login form, but lost control of it at this point. It should use ShowDialog, then check the form to find out if login succeeded, and return a bool to indicate the result.

drexler_kk wrote:
ObjComm = New OdbcCommand("SELECT POS_CASHIER.LocationCode, CashierID, CashierName,.....

First of all, read up on SQL injection. This code means I can erase your database, any time I like. Second, why is it all on one line ? I guess having a variable called TextBox1 is the point at which your code stands no chance of being readable, but still.....

drexler_kk19-Jun-08 19:31

drexler_kk

19-Jun-08 19:31

Hello Mr. Christian Graus,

I have try to change my code to the following:

Public Function FurtherUser_Authenticate(ByVal UserVerifySuccess As Boolean) As Boolean
       Dim FrmAuthen As New FrmAuthen
       FrmAuthen.StartPosition = FormStartPosition.CenterScreen
       FrmAuthen.Show()

   End Function

But I still found the error for my window frmSetting for the line of my function FurtherUser_Authenticate(). The error message appeared: Argument not specified for parameter 'UserVerifySuccess' of 'Public Function FurtherUser_Authenticate(UserVerifySuccess As Boolean As Boolean)'.

Beside,can you give me some exaple how should I solve this problem here?

how can i print my form axacly like itself

Nika Asgari19-Jun-08 11:47

19-Jun-08 11:47

Hello
i want to know how can i have a printed page of my form exacly like my form
like a membercard
i want to have a print of my memberscard axacly like it is on my form
D'Oh! | :doh:

$Shucks | :-\$

N.Asgari

Christian Graus19-Jun-08 12:13

19-Jun-08 12:13

I don't see why this is an issue. If it is, try using the RenderToImage method of the form, then print that bitmap

Nika Asgari19-Jun-08 12:18

19-Jun-08 12:18

tnks for ur reply i get something to make my form as an image but a bout the link i didnt get!

tnk u so much and if it is possible for you plz help me more to how make my form as an image! Sigh | :sigh:

N.Asgari

Christian Graus19-Jun-08 18:44

19-Jun-08 18:44

It's actually called 'DrawToBitmap'

Nika Asgari19-Jun-08 22:04

19-Jun-08 22:04

tnx christian it helps me a lot Smile | :)

N.Asgari

Microsoft PrintForm Component 1.0[^]

jzonthemtn19-Jun-08 12:36

jzonthemtn

19-Jun-08 12:36

Nika Asgari19-Jun-08 22:08

19-Jun-08 22:08

that was so complite tnks Smile | :)

N.Asgari

TrimEnd(..)

iltallman19-Jun-08 11:28

iltallman

19-Jun-08 11:28

Don't use VB much, whats up with TrimEnd() in VB2008

Here is my code to trim a space " " from the end of a path read from a file.

readline = readline.TrimEnd(cchar(" "))

But it does NOT remove the SPACE?

Searched the web and this is supposed to work? What am I missing?

Re: TrimEnd(..)

Christian Graus19-Jun-08 12:14