|
Hello,
You can declare the connection object in a module and then use the same in rest of your application.
Here is the code which you can use:
Module:
Option Explicit
Public gstrDbPath As String
Public adoConnection As ADODB.Connection
Public Sub Main()
gstrDbPath = App.Path & ".\Nwind.mdb"
Dim strConnectString As String
Set adoConnection = New ADODB.Connection
strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& gstrDbPath
'Open the connection to the database
adoConnection.Open strConnectString
Form1.Show
End Sub
Form1:
Option Explicit
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
Dim strQuery As String
Set RS = New ADODB.Recordset
strQuery = "SELECT * from customers"
Set RS.ActiveConnection = adoConnection
With RS
.LockType = adLockBatchOptimistic
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open strQuery
End With
Set Text1.DataSource = RS
Text1.DataField = "ContactName"
RS.ActiveConnection = Nothing
End Sub
Similarly you can use the Connection object in other forms.
Regards,
Dave
Dave Traister
Software Engineer
ComponentOne LLC
www.ComponentOne.com
|
|
|
|
|
It's bad practice to open a connection to a database for the life of your application. You normally opnly keep the connection open for as long as it takes to execute your query, then close it.
Soemthing like this would usuallu be done in a class, possibly using shared (static) methods, or if your design requires it, instance methods. These methods would return a specific set of data, each getting a connection to the database, executing it's own query, then closing the connection. Other methods would do the same thing, but update the database.
|
|
|
|
|
Hi, I would Like to make an auto-clicker that runs on a timer. I've tried several different appoaches to this problem but none seem to work...Any help? These a few, out of many attempts, that seem promising but I really don't know if I'm even close.
Static x As Integer<br />
x += 1<br />
If x = 1 Then<br />
Me.DesktopLocation = Cursor.Current.Handle.GetType.BaseTyp
(or)
Me.MouseButtons = MouseButtons.Left = MouseButtons.Left
(or)
PerformClick()<br />
x = 0<br />
End If
help please?
Thank you.
|
|
|
|
|
You were asked this before, but you never answered. Click on what?? A control in your own application?? A button in another application?? What??
|
|
|
|
|
A wild guess lacking sufficient info: myButton.PerformClick()
Luc Pattyn [Forum Guidelines] [My Articles]
This month's tips:
- before you ask a question here, search CodeProject, then Google;
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get;
- use PRE tags to preserve formatting when showing multi-line code snippets.
|
|
|
|
|
On Feb 25 you asked:
mykingdomforanewusername wrote: How would I make a timer click for me? EX. If i clicked a button that would start the timer then the curser would start clicking at the intervel on the timer/
I asked you on what you want to click. i suggested, in case it is a button, using button.perfomClick.
You never wrote an answer there, so people have to assume your problem has been solved. Next thing i see: You ask a question on a similar subject in the Visual Studio section a few days later. You got no answer there since your question isn't really clear - click on what?
Now you ask exactly the same question (minus that extra confused-smiley) here again, without rephrasing it to make things clear for others.
So do you want people to help you (which, believe me, they will do, if the know, what exactly your problem is), or are you just going to ask the same question over and over again?
Sorry, if I seem to be so pedantic on that.
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
Hi there,
I am new in this area of programming so please forgive me if it sounds stupid question.
After graduation, I am assigned this project for my first job to change an existing code for a client/ server application that acts a pipe to send/ receive messages from one application to another (mobile device to a windows base app). this pipe is a windows base dll application that is being used with a MFC for visualization. this application has a linked list that relates the mobile device ids to the link id (GPRS; like IP/ Port)and saves this information to send a message that comes from the application to the device. the thing is that when this application for any reason (i.e power issue, computer crash...) restarts all the information gets lost and I am assigned to make the change so that the information be stored in a file/database.. for such a problem..  
Can anybody give me some idea and perhaps some document to study to do this, I am supposed to do this very fast (I am doomed)!
I appreciate any suggestions
David
|
|
|
|
|
What part of this do you need help with??
Writing data to a database? Google results for "vb.net database"[^].
|
|
|
|
|
Hello everybody, I'm pretty Noob in vb.net programming so i require some assistance from you pro's.
Here is the problem: I use MS SQL2000 and VB2003 for my project. In that project i have one table with two datetime columns (Start and Stop). I wrote stored procedure that uses these two columns for filtering data (Select * from table where Start>=@Start and Stop<=@Stop) and i want to use that procedure in my project. What I wish, is if u can help me write code so i can enter datetime parameter in two text boxes and with one click on button to receive filtered data from my database on my datagrid....
|
|
|
|
|
This is not a question well suited for a forum. What you want to do is covered in countless tutorials, examples and articles already.
search "stored procedure in vb.net"[^]
If you have any more specific questions about it once you have tried, that would be a question more suited for a forum.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Hi, I want to design a form in the VB2005(visual studio 2005) to receive data(temperature measurement result) from microcontroller(which is CPLD coolrunner II) after received the data then it will be display the temperature result on the computer screen. First, the data will transmit from CPLD, then it will send by MAX232 to RS232 and then display it on computer screen. I need help, how to make a form and code for the serial
data-in from CPLD. I am using Verilog-HDL for CPLD microcontroller. Can any one help me.
Thanks
|
|
|
|
|
Your description just looks like you need to read data from a serial port. If that's it, then you really don't have to do anything with the microcontroller since it sounds like its already knows what it's supposed to do.
Google results for "vb.net 2005 read serial port"[^].
|
|
|
|
|
Thanks, but one of the problem is that version of VB? I have read many of books, but all talk about VB6 so I am quiet confusing right now. Do you have any related code? Just read a data from the serial port using VB2005.
Cheers
|
|
|
|
|
Hi,
first of all I agree with what Dave said, as far as your code goes, it is not interested
in CPLD or other devices, RS232C is the standard you have chosen.
there are lots of articles about SerialPort class on CodeProject.
If you are in charge, I would recommend you let the PC side send a command to the CPLD
(say "T?") and have the CPLD react on that. Doing so, you don't need any events,
you just do the sequence "port write, wait a few msec, port read" whenever you like.
If your device needs to be in charge, you would need the DataReceived event,
and Control.InvokeRequired and Control.Invoke to update the GUI since DataReceived
event occurs on a different thread.
If some of this is unclear, Google for it. I just gave you all the keywords.
Luc Pattyn [Forum Guidelines] [My Articles]
This month's tips:
- before you ask a question here, search CodeProject, then Google;
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get;
- use PRE tags to preserve formatting when showing multi-line code snippets.
|
|
|
|
|
|
Hi,
I have an Excel spreadsheet with auto filters. This is how I loop through the filtered rows (just to display the rows and columns that are visible after the filter:
Dim rngFilter As Range, rngC As Range, rngJbn As Range
Set rngJbn = Range("A2:R" & Range("R" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
For Each rngC In rngJbn
MsgBox rngC.Value
Next
I started displaying data from row 2. Reason is because in the first row there is the dropdowns. As I loop through the columns, I want to be able to check the index of the current cell. I want to do a check on the corresponding cells drop down value. Something like:
If current cell column index = 2 Then
total = ...
End If
Please can someone help me?
Thanks
Brendan
|
|
|
|
|
How would I force it to go to the next row?
Dim rngFilter As Range, rngC As Range, rngJbn As Range
Set rngJbn = Range("A1:R" & Range("R" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
For Each rngC In rngJbn
MsgBox rngC.Value
Next
|
|
|
|
|
Does anyone know how can i connect vb.net to MySQL? Please give me an example.
Thanks
Socheat
|
|
|
|
|
Here[^]
Christian Graus - Microsoft MVP - C++
"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..,
Check This...
** Declaraion
Public MyConnection As New OdbcConnection
Public MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=amri;" & _
"UID=root;" & _
"PASSWORD=palm;" & _
"OPTION=3;"
Open Data base.
MyConnection.ConnectionString = (MyConString)
MyConnection.Open()
reply for more Info,,......
Thanks
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
Do you anyway to use with ODBCConnection? Because I can not add it to ODBC, MySQL is store on Linux and i use vb.net to connect it.
Thanks
Socheat
|
|
|
|
|
If you were not too lazy to try a simple google search, you'd find there's an entire website dedicated to connecting MySQL to VB, where I'm sure you can find examples of every possible combination you could hope for.
Christian Graus - Microsoft MVP - C++
"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 )
|
|
|
|
|
Socheat.Net wrote: Do you anyway to use with ODBCConnection?
Perhaps may sentence readable understand? 
Socheat.Net wrote: Because I can not add it to ODBC
ODBC is a database driver, you don't add databases to it.
Socheat.Net wrote: MySQL is store on Linux and i use vb.net to connect it.
Yes? You just got an example on how to connect to a database using ODBC, just change the name from localhost to the name of the server.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Socheat.Net wrote: ODBCConnection
Using ODBC will slow down the application performance as it adds extra layer to the communication (Information from colin). So use MySQLConnector[^], which is ADO.NET library built for communicating with MySQL.
|
|
|
|
|
hi all,
i am creating add-ins in excel 2007 . In my application, i use some form . i want to that if user change the theme/color of excel then this change is also applied on my form.
anybody have idea that how can i perform this task ?
if possible ,then Please provide some code snippet.
thanks
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
My Company
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
