|
how will i create a program in visual basic 6.0 that reads all the tables and all the fieldnames of the table
adikkaymonic
|
|
|
|
|
u need to create a connection object to access the database and a recordset object to access a table.
then with the help of that recordset u can access the values of fields.
ex:
private sub form_load()
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim query as string
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mbdb;Data Source=abc"
cn.Open
query = "selet * from table1"
rs.open query , cn
if rs.eof = false then
txtbox1.text = rs.fields("field1")
end if
rs.close
set rs = nothing
cn.close
end sub
try this hope it will help u
Noshaba
|
|
|
|
|
what im asking is that how can i copy all the tables and their fiels. not exactly the values of the fields. and put them on a txtfile or in a textbox.
anyway thank you...
youre the man.....
adikkaymonic
|
|
|
|
|
what im asking is that how can i copy all the tables and their fields. not exactly the values of the fields. and put them on a txtfile or in a textbox.
anyway thank you...
youre the man.....
adikkaymonic
|
|
|
|
|
Hi
I am working on Windows Forms and using Windows Media Player control to play video file.
I want to define a transparent color for the video playing in windows forms through Windows Media Player or through any other media player activex.
and then where ever that color exists which i defined earlier in that video should be transparent n i would be able to see through that space.
Hope I elaborated my question correctly.
Again hope to hear the reply soon.
thanx for reading and replying.
MAP Tiger
-- modified at 2:14 Wednesday 15th March, 2006
|
|
|
|
|
MAP Tiger wrote: I want to define a transparent color for the video playing in windows forms through Windows Media Player or through any other media player activex.
Can't be done in Media Player. All you'll see is a black background where the video is playing.
AFAIK, there isn't ANY video player that'll support transparency.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am working on VB.NET Window forms
I want to capture the 2 event of child form
from the parent form.
1. BeforFormLoad (ie ..child form)
2. AfterFormLoad (ie ..child form)
i want to handle theres two events of child form
from the parent form,
Can any one of u with some idea , any reference links ....
Thanks in Advance
Understanding comes form failures..
Sucesss comes form understanding causes for failures..
|
|
|
|
|
Here is one method
In your parent form
Public WithEvents obj As New Form2
Private Sub onBeforeLoad() Handles obj.BefLoad
MessageBox.Show("before")
End Sub
Private Sub onAfterLoad() Handles obj.AftLoad
MessageBox.Show("After")
End Sub
In Your child form
public event BefLoad()
public event AftLoad()
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RaiseEvent BefLoad()
' Do your form load codings
RaiseEvent AftLoad()
End Sub
|
|
|
|
|
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.)
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
