|
Suresh Prasad wrote:
I am trying to find out how I can import selected tables and fields from my database to Access
Can you tell clearly about the your database? What is the name of the database that you want to import your data into Microsoft access?
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
I am trying to import into access data from a progress database. This is how it is setup. The access files is called test1.mdb. The progress database is called springbrook1, and the dsn info is as stated in the code (see below). The table name called customer that I want to import into access. I want to be able to import field1, field2 and field3 from the customer table. This is the code that I have got so far. but now I get the following error message:
The Microsoft Jet databse engine cannot find the input table or query 'mySQL2'. Make sure it exists and that its name is spelled correctly.
My code:
Private Sub ImportToAccess()
Dim Con1 As New ADODB.Connection
Dim Con2 As New ADODB.Connection
Dim mySQL1 As String
Dim mySQL2 As String
Dim myDSN As String
Dim mySET As String
myDSN = "DSN=Springbrook1;UID=suresh;PWD=nissan;"
mySET = "set schema 'pub'"
mySQL2 = "select * from customer"
Con1.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\VB Sample Codes\mcwd\Connect Program\test1.mdb;" & _
"Jet OLEDB:Engine Type=5;"
Con2.Open myDSN
Con2.Execute (mySET)
mySQL1 = "SELECT * INTO [tblCutomer] FROM [mySQL2]"
Con1.Execute mySQL1
Set Con1 = Nothing
Set Con2 = Nothing
Con2.Close
End Sub
|
|
|
|
|
Hi there.
I have a vb.net windows application that starts with a Sub Main which then
loads and displays my main form. The form takes a while to load so I
want to set the cursor to Wait. However when I try to do this from the
module it has no effect.
Can a cursor me changed when there is no form currently being
displayed (i.e. from non-GUI code) and if so how?
Here's my code:
Module modMain
Public Sub Main()
Dim mdiMain As mdiMain
Try
' Do some login stuff here
' Display the waiting cursor
Cursor.Current = Cursors.WaitCursor
mdiMain = New mdiMain
mdiMain.User = frmLogin.User
Debug.Writeline(Cursor.Current.ToString) ' Shows
Cursors.WaitCursor
mdiMain.ShowDialog()
' ...
Daire Cunningham
|
|
|
|
|
Without any actual experience in this... I would say no you can't. The cursor will not change to an hourglass system-wide. It will only change when the cursor is sitting over a form in your application. Since you don't have a form up yet, there is no window handle to send cursor messages to, and therefore, no way to tell it to change the cursor when over your form, which doesn't exist yet).
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
The way MS recommends in their examples is to change the cursor in the NEW function of the given form. This will change the cursor whilst the for is loaded but not yet displayed. You have to change it back at the end of the on_load event though.
|
|
|
|
|
Thanks for the suggestion but it didn't work for me. Could you point me to an MS example where they do this or recommend it.
Thanks,
Daire
Daire Cunningham
|
|
|
|
|
Try dropping a Application.DoEvents() line in immediately after you change the Cursor.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I just double checked and it only works if the form is being displayed.
So unless there is something on the form you don't want the users to see while it is loading you can put a me.showdialog line as the first line of the load event. I tried that and it works.
|
|
|
|
|
Thanks for that but I kick off my form from a Sub Main in a module. I've tried setting the cursor in Main(), and in my form's New and Load events but to no avail. I'm thinking I'll have to make some sort of splash screen or "Loading" dialog instead.
Here's my code:
Module modMain
Public Sub Main()
Dim mdiMain As mdiMain
Try
' Do some login stuff here
' Display the waiting cursor - but doesn't work
Cursor.Current = Cursors.WaitCursor
mdiMain = New mdiMain
mdiMain.User = frmLogin.User
Debug.Writeline(Cursor.Current.ToString) ' Shows
Cursors.WaitCursor
mdiMain.ShowDialog()
' ...
Daire Cunningham
|
|
|
|
|
What i wana do is on the client side have two text boxes, one for login name the other for password. after the client is connected to the server the user would enter the login name and password and hit a start button, this would send that data in the textboxes to the server, how would i go about sending that data safe and how would i go about checking that info in a access database and returning info that was saved in the database about the person that was loging in.
thanks
|
|
|
|
|
Since Access is a Desktop Database, not a server database, you'r not sending anything to a "server". You're actually just opening a .MDB file from the clients workstation. There is no server involved. Even though the Access database sits on a server, the client acts just like it was sitting on one of it's own local drives. (BTW: Access is terrible for this!)
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
ok what if i was to switch this database over to a sql server how would I go about this?
|
|
|
|
|
|
Is there any way i can bind untyped dataset to crystal report and show the values of dataset in the report.
|
|
|
|
|
sure you can. so long as the report is getting a dataset that is representative of it's defined datasource then you're ok.
the easiest way to do this is using a typed dataset, but if you don't want to or can't, you can just create your dataset however you're going to do that. (read from database, manually etc.) then when you're to the point where you're going to send the data to the report, just insert a breakpoint and write the dataset out to an xsd file. take this xsd file and use it as the source of your report.
I like to export the dataset including both the xml data and the schema definition. this way when you're defining your report you'll be able to preview what the output will look like.
hope this helps. good luck.
-jim
|
|
|
|
|
What im tring to do im sure is very easy im just not sure of now to do it or what the elements are called.
Basically all i want is a list of buttons (like a menu) up the left hand side of the form, and depending on which button you press, a section of the form changes (to the right) indicating the choice.
For example
If i click Button1 on the left TextBox1, Textbox2 appear on the right
If i click Button2 on the left Textbox3, Textbox4 appear on the right (in the same place as Textbox1 and Textbox2 would appear if i clicked Button1)
I guess im after something like frames in html.
What is the best way to do this in VB.NET
Thanks in advance
|
|
|
|
|
Put a bunch of panels on your form, each panel containing the controls that you want to show when a particular button is pressed.
Set all the panel's visible property to false apart from the one you want to show when the form is first loaded.
In the event handler of each button hide the panels that do not relate to the button that was pressed by setting the visible property to false and show the relevant panel by setting its visible property to true.
You can make it all look very tidy using docking and a splitter control.
Hope this helps
Tom
|
|
|
|
|
Alternatively do the same thing using MDI Forms, which has the added benefit of separating the functionality in a more object orientated manner.
|
|
|
|
|
Hi,
I have the following problem and I am wondering what the general way is to fix this.
I have got a form with an edit and a store button and a customized propertygrid for the user to capture some information.
The thing I want to have is that when the user changes a property value in the propertygrid the store button changes from disabled to enabled. I don't want the eventhandler main event handler on the form. I currently have the propertyvaluechanged handler on the customized propertygrid. The form I am using is also a derived form from the standard one. I guess the simple solution would be to create the handler on the form and have the enabled switch in this handler, but then you would have to re-create this routine each time so I am looking for something a bit more generic. Keep in mind that I am still learning a lot about vb, so a solution that you think would be pretty obvious, could very well be completely unknown to me.....
Thanks in advanced
Think, try, think, think, try, think, think, think, try, ASK, think, try, advance on step and start over...
|
|
|
|
|
In your inherited control override the protected sub OnPropertyValueChanged:
<br />
Protected Overrides Sub OnPropertyValueChanged(ByVal e As System.Windows.Forms.PropertyValueChangedEventArgs)<br />
<br />
'Put your code here to fire when the property is changed<br />
<br />
'Make sure you call the base method you are overriding<br />
MyBase.OnPropertyValueChanged(e)<br />
<br />
End Sub<br />
In the base class (Windows.Forms.PropertyGrid) this method will simply fire the PropertyValueChanged event, by overriding the sub you can 'slip' your own code in before the event is fired.
More info on this method is available on MSDN:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemwindowsformspropertygridclassonpropertyvaluechangedtopic.asp[^]
It is worth investigating these protected methods when you inherit from other classes.
Hope this helps
Tom
|
|
|
|
|
I am using a data adapter to fill a typed dataset via a stored procedure with a parameter to match on the key value. When there is a match on the key, everything is fine. When there is a no match situation, the program crashes with the following error even though I am trapping for errors.
"An unhandled exception of type 'System.IndexOutOfRangeException' occurred in system.data.dll
Additional information: There is no row at position -1.
"
The crash location is in the ITEM of the DataTable initialization as follows:
Public Default ReadOnly Property Item(ByVal index As Integer) As OptByLRow
Get
Return CType(Me.Rows(index),OptByLRow)
End Get
End Property
The code I am executing is: (ID = incoming key value)
Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection("blahblahblah")
Dim dsOpt As OptByL = New OptByL()
Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand()
Dim daOpt As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter()
Dim LID As SqlClient.SqlParameter = New SqlClient.SqlParameter()
command.Connection = con
command.CommandText = "stpOptByL"
command.CommandType = CommandType.StoredProcedure
LID.ParameterName = "@L_id"
LID.DbType = DbType.String
LID.Size = 10
LID.Value = ID
command.Parameters.Add(LID)
daOpt.SelectCommand = command
Try
daOpt.Fill(dsOpt, "OptByL")
Catch ex As Exception When dsOpt.OptByL.Rows.Count = 0
MessageBox.Show("Empty dataset")
Catch exc As Exception
Throw exc
End Try
Return dsOpt
Can anyone help me out?
TIA
Happy Hunting
|
|
|
|
|
FYI, I'm replying to my own request for help.
What's up out there? I thought there were hot shot vb.net "experts" out there that knew the answers to everything? Does no one know the answer to this problem?
Do the experts only reply to the easy questions that anyone can answer?
Happy Hunting
|
|
|
|
|
You (possibly) overload the information in some areas and don't give enough in others, so it is difficult to see what the problem is.
The error message is: An unhandled exception of type 'System.IndexOutOfRangeException' occurred in system.data.dll Additional information: There is no row at position -1.
You need to give more information. Like at what point this occurred, what command was being executed at the time. The Call Stack will tell you where the error is. The debugger will help you step through the code to see what values are just prior to the error occurring.
You posted a lot of code, however it doesn't seem relevant. But, given that we don't know where the error occurred exactly it is difficult to tell whether it is relevant or not. Perhaps also the SQL statement you are executing is relevant - we don't know.
You probably got no reply because people are busy - they give up their free time to answer questions here and if your question looks like it will waste a lot of time trying to answer then most people won't bother.
NorthernExposure wrote:
I thought there were hot shot vb.net "experts" out there that knew the answers to everything?
The answer to everything is 42
NorthernExposure wrote:
Does no one know the answer to this problem?
Probably people do know the answer but for the reasons I gave above they are unlikely to answer
NorthernExposure wrote:
Do the experts only reply to the easy questions that anyone can answer?
Insulting the "experts" is not likely to generate a positive response.
Do you want to know more?
WDevs.com - Member's Software Directories, Blogs, FTP, Mail and Forums
|
|
|
|
|
First, let me thank you Colin & Dave for replying with what you did. Even that little bit helped get me pointed in the right direction.
I did not, and do not, want to insult the "experts" but it is frustrating to post what I thought was a legitimate problem and get absolutely nothing back. Like you, I am very busy and do not want to waste anyone's time, especially with simple issues that anyone can find the answers to in the plethora of on-line documentation that is available. I am a self-taught VB.Net programmer (actually in the process of self-teaching) and everyone knows that in that situation you have a fool for a teacher.
Your comment re the Stack helped me isolate where the real problem is and I have developed a work-around but not a solution. Here's the scoop:
I am trying to develop an n-tier application with a Windows GUI, business objects to process validation and functionality etc and a data layer to do the actual data retrievals using SQL 2000, data adapters and typed datasets. In this situation where the problem is occuring, I have 1 combobox (ComboboxA)loaded with values from a main table (dsMain) and a 2nd combobox (ComboboxB)loaded with related records from a second table (dsSub). When I select a different item from ComboboxA, I paint an area on the screen with pertinent data from the dsMain record. I then use the key from dsMain to call a business object (boSub) to retrieve the associated child records into dsSub by passing the key value to boSub. boSub issues a call to the data tier (dtSub) to use a data adapter to fill the dsSub with the results of a stored procedure that retrieves all records that match the key value passed to the procedure with a parameter that contains the key value. When there is a match on the key value, dsSub is returned up the ladder to the WIndows GUI, ComboboxB is filled with the results and a separate screen area is painted with data elements from the selected entry in ComboboxB (which, when there is data is initially defaulted to item # 0).
The error was/is occuring when there is no match on the key that is passed (ie no related child records in dsSub) and the program was tring to paint the screen area using data from a non-existent record in dsSub (hence the reference to an index = -1)
The problem is actually happening (I believe) because the program is not recognizing that an empty dataset has been returned even though I have code that is supposed to be trapping for this event. What I have done to check for an empty dataset condition is as follows:
In the business object (boSub) I have created a boolean property called EmptyDataset that is set to false when boSub is instantiated. In boSub, I test for an empty dataset and if that occurs, I set EmptyDataset = True. In the Windows GUI, when dsSub is returned, if EmptyDataset = False, I paint the screen. The problem is that EmptyDataset is not being set to True. This is the actual trapping code that I am using in boSub:
Public Class LenderOptionsBO
Inherits MortgageOptionsDC
Private mbolDSEmpty As Boolean = False
Property EmptyDataset() As Boolean
Get
Return mbolDSEmpty
End Get
Set(ByVal Value As Boolean)
mbolDSEmpty = Value
End Set
End Property
Public Sub New()
EmptyDataset = False
End Sub
Public Shadows Function GetByPKLenOpt( _
ByRef Lmo_id As String) As OptionsByLender
Dim dsOptions As OptionsByLender = New OptionsByLender()
Try
dsOptions = MyBase.GetByPKLenOpt(Lmo_id)
Catch ex As Exception When dsOptions.OptionsByLender.Rows.Count = 0
EmptyDataset = True
Catch exp As Exception
Throw exp
End Try
Return dsOptions
End Function
The code: Mybase.GetByPKLenOpt(Lmo_id) is as follows:
Public Overridable Overloads Function GetByPKLenOpt( _
ByRef ID As String) As OptionsByLender
'
' Get all mortgage options for a lender
'
Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection("data source=AGSERVER001;initial catalog=MortgageMulcher;integrated security=SSPI;persist security info=True")
Dim dsOptions As OptionsByLender = New OptionsByLender()
Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand()
Dim daMrtgOptions As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter()
Dim LenderID As SqlClient.SqlParameter = New SqlClient.SqlParameter()
command.Connection = connection
command.CommandText = "stpOptionsByLender"
command.CommandType = CommandType.StoredProcedure
LenderID.ParameterName = "@Lender_id"
LenderID.DbType = DbType.String
LenderID.Size = 10
LenderID.Value = ID
command.Parameters.Add(LenderID)
daMrtgOptions.SelectCommand = command
daMrtgOptions.Fill(dsOptions, "OptionsByLender")
Return dsOptions
End Function
The code in the Windows GUI where I am checking for an empty dataset is:
Dim i As Integer, bolo As LenderOptionsBO = New LenderOptionsBO(), strid As String
i = cboLenders.SelectedIndex
strid = dsLenders.tblLender(i).Len_id
dsLenOptions = bolo.GetByPKLenOpt(strid)
If bolo.EmptyDataset = True Then
MessageBox.Show("This is an empty dataset")
End If
When there is an actual empty dataset, I am not getting the Messagebox displayed, it is falling through the code and causing the crash.
For the life of me, I cannot see why EmptyDataset = True is not being triggered.
I'm sorry that I have been so verbose. Hopefully one of you can see what stupid mistake I have made.
TIA
Bruce
Happy Hunting
|
|
|
|
|
NorthernExposure wrote:
The crash location is in the ITEM of the DataTable initialization as follows:
What "ITEM"? Like Colin said, we don't know on what line the error occured, so it's really difficult to tell you what happened.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
