|
At first you should add connection string to project settings:
Projct->Properties->Settings
There you should fill 4 colums:1."Name"(name of connection string) 2."Type"(you should select "Connection String" 3.Scope ("Application") and last 4."Value" (You should write connection string like this: Server=localhost;Database=;Uid=root;Pwd=; )
Then you sholud declare this connection string in your project.
For example:
<br />
Dim mMySQLConnectionString1 As String = My.Settings.MySQLConnectionString '"MySQLConnectionString" this is a name of connection string<br />
<br />
Public Overloads Sub DataLoading(ByRef pDataGridViewControl As DataGridView, ByRef pRecordCountInt32 As Int32, ByRef pErrorMessageString As String)<br />
<br />
Try<br />
Using mMySqlConnection As New MySqlConnection(mMySQLConnectionString1)<br />
mMySqlConnection.Open()<br />
Using mMySqlCommand As New MySqlCommand<br />
With mMySqlCommand<br />
.Connection = mMySqlConnection<br />
.CommandType = CommandType.Text<br />
.CommandText = "SELECT FROM `table`"<br />
<br />
End With<br />
End Using<br />
End Using<br />
Catch exError As Exception<br />
pErrorMessageString = exError.Message<br />
End Try<br />
End Sub<br />
By this fragment of code other users can connect to your DB.
|
|
|
|
|
Yeah,thank you friend.I got the concept from your code now. But how could I make this as a global connection string in my window form application? What do you mean by project>Properties>Setting? I can't really find whats that inside for me to fillup the 4columns. I'm using Visual Studio.NET 2003 connect to MySQL database.
Should I open a module and put this code inside? Can this code also apply for using a Dataset for my datagrid?
|
|
|
|
|
Hello every
I am having a VB.net 2005 application
It was running all file but after i clean and rebuild it i am getting the above error while running it
The type initializer for 'Application.DatabaseInit' threw an exception
where DatabaseInit is a module
I also did a diff with old working version... the only difference i was able to find was in suo file...
Dose any one have any idea why am i getting this error and how to solve it
Regards
Nishkarsh
|
|
|
|
|
This may be caused by the connection to SQL failing authentication. Step through the code and check your connection string.
Obscure I know but the hint is your DAL is failing and it probably has inadequate error trapping so you get the default message which is really informative (not).
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi Toall ,
I want to explain you clearly ,
I am having some panels having some controls
CheckBox,ComboBox,Datagridview,Hyperlink,label,Listbox,Picturebox,RadioButt
on ,Textbox)
&(Oval,Line,Rectangle ). with .BorderStyle =
BorderStyle.FixedSingle . All these things are generating at runtime
using some buttons .
I am taking them in to bitmaps and then printing using ACROBAT
DISTILLER printer.
I am printing each Bitmap on a new page taking e.MarginBounds of
PrintPage event using e.Graphics.DrawImage () .
I took each control on a single panel. Then i take the
panel
into bitmap using control.drawtobitmap() .And then I print the
things .
Suppose if the panel is having Circle or line or ComboBox or Checkbox
or DataGridView or URL or ListBox or RadioButton ,it is showing the
borders .
Suppose if it is having picturebox or rectangle or Textbox missing
the
borders . or if the panel is not having controls then it is missing
the borders while printing .
It is showing the borders in printpreview everytime(I have to zoom
to look at these things ) but while printing ,sometimes, it is
printing with borders ,sometimes it is missing the borders.
If it is the last page to print it is missing last
3-4 lines (Missing the image part at bottom ). Suppose, i am having
2
bitmaps having the samesize and controls ,then in 1st page it is
printing with controls & borders exactly correct .But while coming to
last page, it is missing bottom 3-4 lines which makes the printing
incorrect .
So any help about this to make the printing correct exactly.
Thanks & Regards ,
|
|
|
|
|
hi guys
i am working in vb.net 2005 its a 3-tier application, i have a windows form which contais some textboxes and comboboxes based on the values of these controlls i am creating my query to get data from data base ,
eg.
where value 1 = txt1 and value 2 = txt2 and val3 - txt3 ..
but i cant generate this where clause at run time coz all the parameters in the above query are
optional if user doest not enter any value i have to get all the data
can u please tell me the right approach to do that.
Thanks in advance
............
hello
|
|
|
|
|
First of all, you should use a stored proc. Second 'value 1' is not valid, it has a space in it.
I'd do it like this
where (value1 = @val1 or @val1 = '') and (value2 = @val2 or @val2 = '')
So that passing in blank parameters, causes them to be ignored.
This should have been askjed in the SQL forum.
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 )
|
|
|
|
|
Hello everyone
I Add this tool "Microsoft ADO Data Control 6.0"
<br />
dim dnsip As String<br />
<br />
ado.RecordSource = "select ip1,ip2,ip3,ip4 from DNSTable where hostname like ('dnshostname ') "<br />
<br />
dim dnsip as String
dnsip = ado.RecordSource = "select ip1,ip2,ip3,ip4 from DNSTable where hostname like ('dnshostname ') "
How i can store or save the retrieve select statment in variable like dnsip
Thank you
-*-*-*-*-*-*-*-*-*
To Be Or Not To Be
(KARFER)
-*-*-*-*-*-*-*-*-*
|
|
|
|
|
git
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
eloquent
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
I answered this yesterday, and you didn't reply, but now you ask it again ?
Are you using VB6 ? If so, why would you do such a thing ? If not, why use ADO ?
Dunno why I bother trying to help, it seems anything beyond a cut/past solution, you will ignore and just ask again.....
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 )
|
|
|
|
|
hi 
how can i define dynamic array and how can i know its size
please help
|
|
|
|
|
A dynamic array is on in which you don't know the size when you start, so the question is a bit unclear. However, defining and using a dynamic array is about as easy as using a regular arry.
I'll give example in a single-dimension array
<br />
Private fileList() As sDownloadRecord<br />
<br />
Private Sub clientTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles clientTimer.Tick<br />
' keep track of overall files to download count<br />
Dim queuePosition As Integer = 0<br />
ReDim fileList(queuePosition)<br />
<br />
For i As Integer = 0 To UBound(Severe)<br />
fileList(i).URI = "[uri obscured]" & My.Settings.Calls.ToLower & "/" & Severe(i).InFile<br />
queuePosition += 1<br />
ReDim Preserve fileList(queuePosition)<br />
Next<br />
End If<br />
Note: sDownloadRecord is a structure of string items. It's not important to this example. The important thing for answering your question lies in these lines:
<br />
Private fileList() As sDownloadRecord<br />
This sets up the dynamic array...initializing it without a size.
<br />
Dim queuePosition As Integer = 0<br />
This sets the array to size 0 (1 item, since arrays are 0-based).
<br />
ReDim Preserve fileList(queuePosition)<br />
After you put a value in the array, you need to expand the array to accept the next value. "ReDim Preserve" handles this.
"UBound" is how you know where the top of the array is. You see it used in the line
<br />
For i As Integer = 0 To UBound(Severe)<br />
As Severe() is a Dynamic array of strings, too.
Hope that helps!
Scott
|
|
|
|
|
thanks
do you think that using ( ArrayList ) is butter than dynamic array
|
|
|
|
|
how to convert date in string to date and send to access database in the query
Thank You
Meghana
|
|
|
|
|
You can use DateTime.TryParse to try to turn a string into a datetime. You pass it as a parameter to the query after that
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 )
|
|
|
|
|
This seems like it ought to be simple, but I'm apparently not coming up with the right search terms to find an answer...
My application downloads audio files for an automated player. I'm downloading the files into a temp directory, because the player may be using the file at the time I'm trying to download an updated one. How can I keep a file copy from happening if the destination file is open?
|
|
|
|
|
Hi,
AFAIK there is no way to interrogate a file on its current activities or open state.
if a file is open it typically will not allow to be copied over, so all you have to do
is try to copy and catch the possible exceptions to detect failure.
And if the file is opened in such a way that copying over would be possible, then make
your open more demanding (such as open-for-readwrite, and no-share).
|
|
|
|
|
Here is a way to wait for the file to be available before saving, you could apply the same to copying and remove the do until / loop. Just use a try/catch statement.
A process i have is iterating through all the
Dim saved = False
Do Until saved = True
Try
doc.Save("c:\data\results.xml")
saved = True
Catch ex As Exception
'silentFail
End Try
Loop
|
|
|
|
|
hi all
I Add this tool "Microsoft ADO Data Control 6.0" and connected it to my Database and i want to store the select statment in my variable like this:
<br />
dim dnsip as String<br />
<br />
dnsip = ado.RecordSource = "select ip1,ip2,ip3,ip4 from DNSTable where hostname like ('dnshostname ') "<br />
<br />
This code does not store select statment in my variable dnsip
How i can store the select statment in variable dnsip
THANK'S
-*-*-*-*-*-*-*-*-*
To Be Or Not To Be
(KARFER)
-*-*-*-*-*-*-*-*-*
|
|
|
|
|
I dunno how VB handles this sort of syntax, why not set dnsip first, THEN set teh RecordSource on the next line ?
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 )
|
|
|
|
|
I'm not much of an expert on ado but I can see at least one thing is wrong here. You have 2 equals statements which I think is illegal. Either your first " should be between your = and ado.Recordsource if you are trying to turn that whole statement into a string or you should do this in 2 lines of code if you are trying to make 2 assignments.
|
|
|
|
|
Seriously, pickup a beginners book on VB.NET and work through it. What you're doing is legal, but that statement doesn't work how you're thinking it does.
|
|
|
|
|
No, he'd rather ask the same question again.....
( about 3 threads up )
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 )
|
|
|
|
|
Christian Graus wrote: No, he'd rather ask the same question again.....
 Why do we even bother...
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
