|
Friend,
Thanks u so much for ur help
I am basically VC++ Programmer,
New to .net , i did what u suggested
Porgramm had complied but i am not gettting the messagebox
i think event is not fired,
pls could u help me, in ending sucessfully
-hope i will get the responce
|
|
|
|
|
How do you Open Your child form?
It shd be the same object that you have declared with withevents.
like
obj.Show()
or
Obj.ShowDialog()
|
|
|
|
|
Thanks u my friend
I got it.
I do have another small , sorry if i am distrubing u
so in BeforeLoad() event I am call a Thread( th.start ), which initials a dialog box
and in AfterLoadEvent (th.suspend) I am supspending it, the thread has
while(1)
vb.net Accepts me !
if u r very busy pls,, carry on ur work, i will try it,
Once again I Thank u a lot for ur Advice
|
|
|
|
|
I'm doing a project right now and I have a problem in creating a message box.
I tried it with JScript,VBscript and directly in the code behind but intellisense itself doesn't have this option.Please give me suggestions answers to proceed with.
Thank You
Rama
|
|
|
|
|
rama m wrote: I tried it with JScript,VBscript and directly in the code behind
Well, what language are you using? If anything other than VB then this isn't the forum to get an answer.
In any case type MsgBox into the code window, place the cursor somewhere on the MsgBox text and press F1. This will give you help on how to use it.
Note if this fails to show help, try looking up MsgBox in Google[^] or (even better) the MSDN[^] web site.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
(Translation: I'll show you the way, but not write the code for you.)
|
|
|
|
|
I suppose you are developing a webapplication, you forgot to mention whether it is a web or winform.
If you are using a web app then you cannot use Message box, You could opt for 'alert' in javascript or 'Msgbox' in vbscript. Intellisense wont support JS or VBS in the codebehind.
If you have doubts using JS with asp.net the try google.
If its a winform app then MessageBox.Show("") is just enough provided System.Windows.Form namespace is included.
|
|
|
|
|
If u are using webapp, messagebox goes like below
string msg = "Hellow World!"
Response.Write("alert('" & msg &"')")
_____________________
Proud to be Albanian
_____________________
|
|
|
|
|
Hi All,
All my field values are stored in array and i am trying to insert a record in a database but i am receiving a error that says:
******
There was an error creating your profile. Please try again later.System.Data.SqlClient.SqlException: The identifier that starts with 'INSERT INTO profiles (CreationDate,ModificationDate,ImageName,ImageCaption,UserName,Password,Email,GenderID,Age,SexualOrientatio' is too long. Maximum length is 128. The name 'INSERT INTO profiles (CreationDate,ModificationDate,ImageName,ImageCaption,UserName,Password,Email,GenderID,Age,SexualOrientatio' is not permitted in this context. Only constants, expressions, or variables allowed here. Column names are not permitted. The identifier that starts with 'System.InvalidOperationException: The connection is already Open (state=Open). at System.Data.SqlClient.SqlConnection.Open()' is too long. Maximum length is 128. at System.Data.SqlClient.SqlCommand.ExecuteNonQuery() at CreateProfileCode.Page_Load()
********
below are my code to add new record
-----------------------------------
'Continue If the User Name has not been used and the e-mail address is neither used nor in the Abusers table.
If (blnUserNameIsUnique AND blnUserIsNotAbuser AND blnEmailNotUsed) Then
blnPrintForm = false
Dim strColumns As New StringBuilder()
Dim strValues As New StringBuilder()
Dim intField As Integer
'Array of all the columns in the Profiles table to be recorded.
Dim ProfileFields(16,1) As String
ProfileFields(0,0) = "UserName"
ProfileFields(0,1) = "text"
ProfileFields(1,0) = "Password"
ProfileFields(1,1) = "password"
ProfileFields(2,0) = "Email"
ProfileFields(2,1) = "text"
ProfileFields(3,0) = "GenderID"
ProfileFields(3,1) = "number"
ProfileFields(4,0) = "Age"
ProfileFields(4,1) = "number"
ProfileFields(5,0) = "SexualOrientationID"
ProfileFields(5,1) = "number"
ProfileFields(6,0) = "EthnicID"
ProfileFields(6,1) = "number"
ProfileFields(7,0) = "Height"
ProfileFields(7,1) = "number"
ProfileFields(8,0) = "BodyTypeID"
ProfileFields(8,1) = "number"
ProfileFields(9,0) = "NeighborhoodID"
ProfileFields(9,1) = "number"
ProfileFields(10,0) = "AboutMe"
ProfileFields(10,1) = "textarea"
ProfileFields(11,0) = "WantActivityPartner"
ProfileFields(11,1) = "checkbox"
ProfileFields(12,0) = "WantFriend"
ProfileFields(12,1) = "checkbox"
ProfileFields(13,0) = "WantDate"
ProfileFields(13,1) = "checkbox"
ProfileFields(14,0) = "WantLTR"
ProfileFields(14,1) = "checkbox"
ProfileFields(15,0) = "ForwardMessages"
ProfileFields(15,1) = "checkbox"
'Astrological Sign added Feb. 14, 2005.
ProfileFields(16,0) = "SignID"
ProfileFields(16,1) = "number"
'Loop through the ProfileFields and build the INSERT statement.
For intField = 0 to 16
Dim strFieldName As String = ProfileFields(intField,0)
Dim strFieldType As String = ProfileFields(intField,1)
Dim strFormValue As String = Request.Form(strFieldName)
If strFormValue <> "" Then
strColumns.Append("," & strFieldName)
Select Case strFieldType
Case "text"
strValues.Append(",'" & strFormValue & "'")
Case "password"
'Use 128-bit encryption.
strValues.Append(",MD5('" & strFormValue & "')")
Case "textarea"
strFormValue = Server.HtmlEncode(strFormValue)
strFormValue = strFormValue.Replace("""","&" & "quot;")
strValues.Append(",""" & strFormValue & """")
Case "number"
strValues.Append("," & strFormValue)
Case "checkbox"
If strFormValue = "on" Then
strValues.Append(",1")
End If
End Select
End If
Next intField
'Create the Activation Code by combining a part of the Session ID and 2 random numbers.
Dim objRandom As New Random()
Dim intStart As Integer = objRandom.Next(1,9)
Dim intLastTwo As Integer = objRandom.Next(10,99)
Dim strCode As String
strCode = Mid(Session.SessionID, intStart, 14) & CStr(intLastTwo)
strColumns.Append(",ActivationCode")
strValues.Append(",""" & strCode & """")
'Create the complete INSERT statement and insert the record.
Dim strInsert As String = "INSERT INTO profiles (CreationDate,ModificationDate,ImageName,ImageCaption" & _
strColumns.ToString() & ") VALUES (NOW(),NOW(),NULL,NULL" & strValues.ToString() & ");"
objCommand.CommandText = strInsert
Try
objCommand.ExecuteNonQuery()
'Send an e-mail to the user with the activation code.
----------------------------
I hope my question makes sense.
please help i tried all night but couldnt figure out why.
|
|
|
|
|
You've got embedded double quotes somewhere in your command text which is causing SQL Server to consider it as an identifier rather than a command.
Run it in debug and check the entire contents of strInsert just before the ExecuteNonQuery().
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
(Translation: I'll show you the way, but not write the code for you.)
|
|
|
|
|
after careful reading of code i came up with those issues,
i think the problem likes sum where in here
while converting a text area field
------
Case "textarea"
strFormValue = Server.HtmlEncode(strFormValue)
strFormValue = strFormValue.Replace("""","&" & "quot;")
strValues.Append(",""" & strFormValue & """")
---------
which produces this insert query
INSERT INTO profiles (CreationDate,ModificationDate,ImageName,ImageCaption,
UserName,Password,Email,GenderID,Age,SexualOrientationID,EthnicID,
Height,BodyTypeID,NeighborhoodID,AboutMe,WantActivityPartner,WantFriend,
WantDate,WantLTR,ForwardMessages,SignID,ActivationCode)
VALUES (DateTime.Now()),DateTime.Now(),NULL,NULL,
'hello',MD5('cocacola'),'bikash557@hotmail.com',2,23,1,2,49,2,2,"i not not me",1,1,1,1,1,1,"tq45z3xlg5554f34")
both "i am not me" and the activation id should've been inside single comma and i dont know if MD5 works in sql server 2000.
any idea any one please help me.
thanks
i am still trying to know how to catch fish.
|
|
|
|
|
foremorecoast1 wrote: i think the problem likes sum where in here
while converting a text area field
------
Case "textarea"
strFormValue = Server.HtmlEncode(strFormValue)
strFormValue = strFormValue.Replace("""","&" & "quot;")
strValues.Append(",""" & strFormValue & """")
---------
Yep - you're on the right track. Good luck.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
(Translation: I'll show you the way, but not write the code for you.)
|
|
|
|
|
i tried hard spend almost few hours i realy dont know whats wrong with that code and MD5 doesnt work too. i am really at lost.
|
|
|
|
|
Try MD5_STRING() instead of MD5()...
Also, replace the double quotes in your statement with single quotes....
Let me know if that does it...
-Kay
|
|
|
|
|
i tried the above code with
----------
Select Case strFieldType
Case "text"
strValues.Append(",'" & strFormValue & "'")
Case "password"
'Use 128-bit encryption.
strValues.Append(",('" & strFormValue & "')")
Case "textarea"
strFormValue = Server.HtmlEncode(strFormValue)
strFormValue = strFormValue.Replace("''","&" & "quot;")
strValues.Append(",''" & strFormValue & "''")
Case "number"
strValues.Append("," & strFormValue)
Case "checkbox"
If strFormValue = "on" Then
strValues.Append(",1")
End If
End Select
-----
but i still get this error. and md5_string doesnt work so i wont bother encrypting the password please help .
many thanks in forwad.
|
|
|
|
|
finally its working but my MD5 is not working. i tried md5_string but no help. is it okay if i leave the password unencrypted whats wrong with that?
|
|
|
|
|
So how did you fix it? For everyone's knowledge?(besides the encryption).
-Kay
|
|
|
|
|
It's really only a problem if someone gains access to your database. Then they could gain access to any user account since the user name and password are in the table in plaintext.
Encrypting the password at least makes it much harder for any hacker to get access to anyone else's account.
MD5() and MD5_STRING() arn't working because they are not TSQL functions. You can't use it in the manner in which you've coded it.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
(Translation: I'll show you the way, but not write the code for you.)
|
|
|
|
|
When I try to update modified rows in an access database I get the following error
"Update requires a valid UpdateCommand when passed DataRow collection with Modified Rows"
I am using a VB2003 Dataform to enter and update my DB. Any ideas on ehat might be wrong?
|
|
|
|
|
It was a problem to me. First check whether you created the Primary Key.
chatura
|
|
|
|
|
Hi All,
I am fairly new to VB.NET however, I am working with Drawings, and have encountered a problem. Whenever I try to draw a line outside of the original size of the form it does not appear. For example a form 300x300 even when resized prior to execution still will not allow a line outside the 300x300 area? any ideas?
Regards,
Oz
|
|
|
|
|
Hi
Is it possible to use my VB application to run Summary Reports from a Database at a click of a button.
Basically, I have a Database Table with 3 Fields - Date, Task, Duration.
I want my VB application to produce Summary Reports based on the Data in the Table at a click of a button. I want to be able to produce Daily, Weekly and Monthly Reports.
Is this possible? Please let me know if more info is needed.
Regards
ensuvari
|
|
|
|
|
yes u can do so with the help of datareports or crystal reports whatever u want to use in ur application. with the help of these reports u can generate any kind of report on a click of button
|
|
|
|
|
Do you know any links to online Tutorials where I can learn how to use DataReports and CrystalReports?
Regards
ensuvari
|
|
|
|
|
|
I am reading in an image (JPG) and I need to change the DPI from lets say 96 to 72. Here are the last two lines of code I am using to create the new image.
bmTarget = New Bitmap(ResizeWidth, ResizeHeight, PixelFormat.Format24bppRgb)
bmTarget.Save(NewPath, Drawing.Imaging.ImageFormat.Jpeg)
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
