|
arunendra wrote: 1.for the first part (comapcting), the string (source) now looks like the following when it is passed to the function:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=;User Id=Admin;password= ;Jet OLEDB:Database Password=bill1234
is the formation right?
Nope. You didn't supply a path to the database you want to compact. Notice that Data Source doesn't have anything after it?
arunendra wrote: 2. the part : oJet.CompactDatabase(srcConn, dstConn), gives a compiler error
"expected:="; if i remove the brackets, there is no error, will it work?
Remove the paranthesis and it'll work. It's been about 6 years since I've used VB6. I forgot, if your don't use the return value, you don't supply paranthesis around the arguments your passing to the function.
arunendra wrote: 3. if i try like that (with out bracket and with the string formed above, and when run,when the compactdatabase part comes, the error msg occures :
"object variable or with block variable not set"
what shall i do?
Because you didn't supply the Data Source parameter in question 1. How is it supposed to know which database to compact if that Data Source is blank???
arunendra wrote: you want me to map a drive, but how to do and in which machine i have to do?
This is why I told you to read up on Windows networking before you tried this! You have to map a drive before you launch this application. This is done through login scripts or you can setup a persistant drive mapping on each client workstation, or map the drive using a batch file before the app is launched, ...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Dear Dave!
Thanks for the help.
Now the source string looks like :
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TECHNOPACK\technopack.mdb;User Id=Admin;password=;Jet OLEDB:Database Password=bill1234
and the destination string is like the following :
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TECHNOPACK\tmptechnopack.mdb;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=bill1234
The error was still on and after a little bit of searching i found that in my declaration of jro jetengine ,new keyword was missing, now the problem of compacting is over!!! Thanks!
For windows netwroking, can you give me any good location address from where I can get more about that.
I have also found that, if I try with permissions for "Everyone" (permissions to read,list,write and execute) my problem would be solved. Do you think it's a good idea?
furthermore, I dont see any user with this name or any group, but this word does work! can you explain a bit!
Regards
arunendra
N.B another thing! do you mind if I ask something else under this subject line. if yes then only i will ask.
thanks again for the help.
-- modified at 6:19 Monday 17th April, 2006
|
|
|
|
|
arunendra wrote: I have also found that, if I try with permissions for "Everyone" (permissions to read,list,write and execute) my problem would be solved. Do you think it's a good idea?
Not really... Home and Small Office Networking with Windows XP[^]
arunendra wrote: furthermore, I dont see any user with this name or any group, but this word does work! can you explain a bit!
What do you think "Everyone" means? It doesn't care what the username is, authenticated or otherwise.
arunendra wrote: N.B another thing! do you mind if I ask something else under this subject line. if yes then only i will ask.
New line of questions = new post.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
how can i make program that will login in hotmail acount and take all email address in this email
--------------------
in othere words i have web site that have username as email and password
i want to program to test login to this account and all email address in this account
to send advertisment to this email
how can i do that ??
Palestine
|
|
|
|
|
Please don't cross post.
---
b { font-weight: normal; }
|
|
|
|
|
Do you really think we're going to tell you how to do something illegal?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
when i upload my webpages on server its giving error:
Server Error in '/' Application.
--------------------------------------------------------------------------------
Runtime Error
Description: An application error occurred on the server. The current custom error settings for this application prevent the details of the application error from being viewed remotely (for security reasons). It could, however, be viewed by browsers running on the local server machine.
Details: To enable the details of this specific error message to be viewable on remote machines, please create a <customErrors> tag within a "web.config" configuration file located in the root directory of the current web application. This <customErrors> tag should then have its "mode" attribute set to "Off".
<!-- Web.Config Configuration File
<configuration>
<system.web>
<customErrors mode="Off"/>
</system.web>
</configuration>-->
Notes: The current error page you are seeing can be replaced by a custom error page by modifying the "defaultRedirect" attribute of the application's <customErrors> configuration tag to point to a custom error page URL.
<!-- Web.Config Configuration File
<configuration>
<system.web>
<customErrors mode="RemoteOnly" defaultRedirect="mycustompage.htm"/>
</system.web>
</configuration>-->
after changing the web.config file....
<customErrors mode="Off"/>
its giving the same error.
how can i make my login page as a indexpage.
its urgent plz
|
|
|
|
|
Turn customErrors to On so you will se what error you get and then you will be able to fix it.
And we don't care if it is urgent so don't bother writing that.
--------------------------------------------------------
My development blog
Q:What does the derived class in C# tell to it's parent?
A:All your base are belong to us!
|
|
|
|
|
i have an application developed in vb.net and msaccess during deployment i m facing following two problems
1.i want that my application is automatically run after installation plz tell me how it will?
2. when i make a shortcut of my application at user's desktop and program menu it opens the same location not call the exefile of the project.?
thnx in advance
plz reply me urgent my development is just hang due to these problems
plz reply me soon
|
|
|
|
|
naeeemkhan wrote: 2. when i make a shortcut of my application at user's desktop and program menu it opens the same location not call the exefile of the project.?
http://support.microsoft.com/kb/821766/en-us[^]
naeeemkhan wrote: 1.i want that my application is automatically run after installation plz tell me how it will?
I think you might need to use installshield.
|
|
|
|
|
can you be abit more specific and can you give some more details, i think it will then be easy to understand your problem
|
|
|
|
|
Try to spend some of your time to research with this website[^]. I hope you could find what you need with this software.
|
|
|
|
|
naeeemkhan wrote: 1.i want that my application is automatically run after installation plz tell me how it will?
Well, you could create a custom action for your installation project that ASKS first if the user wants to run the app after the install. Then, if so, just use the Process[^] class to launch it.
Docs[^] on custom actions...
naeeemkhan wrote: 2. when i make a shortcut of my application at user's desktop and program menu it opens the same location not call the exefile of the project?
Huh?? Are you saying that the shortcut you put into the install just opens the location of the .EXE?? Modify the shortcut in your installation and add the name of the .EXE to the path.
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 10:56 Friday 14th April, 2006
|
|
|
|
|
hi guys i want the logic basically i am making a date sheet of university in vb. here i have date and four time slots against one date and correspondig their room allocation with couse please give me the logic how can i complete this task. with collection or three dimension array.
Regards
Msaqlain
|
|
|
|
|
First, you're going to have to show us that you actually attempted to do something on this homework assignment. We're not here to do your homework for you, just push you in the right direction.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I have made an instance of the BookSale Object after the mnuCalculate
but when I try to access any properties of mBookSale in a a new event sub procedure I get the message mBookSale is not declared.
Private Sub mnuCalcSale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCalcSale.Click<br />
<br />
Dim mBookSale As New BookSale<br />
mBookSale = New BookSale<br />
With mBookSale<br />
.Title = txtTitle.Text<br />
.Quantity = CInt(txtQuantity.Text)<br />
.Price = CDec(txtPrice.Text)<br />
End With<br />
lblExtendedPrice.Text = FormatNumber(mBookSale.ExtendedPrice)<br />
End Sub<br />
<br />
the above is all ok, below does not work! BookSale is a Class Module.
Private Sub mnuSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSummary.Click<br />
<br />
<br />
strMessage = "sales Total " & FormatNumber(mBookSale.SalesTotal)<br />
<br />
MessageBox.Show(strMessage, "Summary Totals", MessageBoxButtons.OK, MessageBoxIcon.Hand)<br />
<br />
End Sub
When I try to access mBookSale.SalesTotal I get mBookSale is not declared.
the Class module is listed below.
Public Class BookSale<br />
Private mstrTitle As String<br />
Private mintQuantity As Integer<br />
Private mdecPrice As Decimal<br />
Private Shared mdecSalesTotal As Decimal<br />
Private Shared mintSalesCount As Integer<br />
#Region "Properties"<br />
<br />
<br />
<br />
<br />
' below code to set and return or'GET' Title property<br />
'are properties 'PUBLIC' by default????????<br />
Public Property Title() As String<br />
Get<br />
Title = mstrTitle<br />
End Get<br />
Set(ByVal Value As String)<br />
mstrTitle = Value<br />
End Set<br />
<br />
End Property<br />
Public Property Quantity() As Integer<br />
Get<br />
Quantity = mintQuantity<br />
<br />
End Get<br />
Set(ByVal Value As Integer)<br />
If Value >= 0 Then<br />
mintQuantity = Value<br />
End If<br />
End Set<br />
End Property<br />
Public Property Price() As Decimal<br />
Get<br />
Price = mdecPrice<br />
End Get<br />
Set(ByVal Value As Decimal)<br />
If Value >= 0 Then<br />
mdecPrice = Value<br />
End If<br />
End Set<br />
End Property<br />
Public Function ExtendedPrice() As Decimal<br />
Dim decExtendedPrice As Decimal<br />
decExtendedPrice = mdecPrice * mintQuantity<br />
Return decExtendedPrice<br />
mdecSalesTotal += decExtendedPrice<br />
mintSalesCount += 1<br />
End Function<br />
Public Shared ReadOnly Property SalesTotal() As Decimal<br />
Get<br />
If mdecSalesTotal >= 1 Then<br />
SalesTotal = mdecSalesTotal<br />
Else<br />
SalesTotal = 99.99D<br />
End If<br />
<br />
End Get<br />
End Property<br />
Public Shared ReadOnly Property SalesCount() As Integer<br />
Get<br />
SalesCount = mintSalesCount<br />
<br />
End Get<br />
End Property<br />
#End Regio
|
|
|
|
|
The reason you get this error is that mBookSale is indeed not declared in the mnuSummary_Click() event handler.
You have declared it in mnuCalcSale_Click() but it is only has local scope within that event - it is destroyed when mnuCalcSale_Click() exits.
If you want the mBookSale object to be available to all events, you'll need to declare it at a higher scope level (i.e. within the class that contains the event handlers).
...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 
|
|
|
|
|
Dear Steve,
Thanks for the reply.
I was coming to that conclusion.
I was getting confused with scope after an exercise where the objects were created in a frmLoad_ Event(local scope).
To populate a ListBox using Item.Add(NewObject(x,y,z) .
Then in a new procedure --> ListBox_Click Event <-- the object was addressed via its method ListBox.SelectedItem.GetPrice
This is still a bit murky for me....but I think I see that the ListBox contains the actual object so can be directly referenced.
Thanks Mick..
Am I still asleep
|
|
|
|
|
I won't paste the actual code, but I'll duplicate the circumstances
Class UI
Sub CallingSub()
dim strOne as String = Nothing
dim strTwo as String = Nothing
if txtOne.Text <> "" then
strOne = txtOne.Text
end if
if txtTwo.Text <> "" then
strTwo = txtTwo.Text
end if
dim objBusiness as Business
objBusiness.CallMe(strOne, strTwo)
End Sub
End Class
Class Business
Sub CallMe(ByVal strOne as String, ByVal strTwo as String)
....
End Sub
End Class
strOne in UI is Nothing when I pass it (this has been verified in debugging).
I put a watch on strOne in Business. As soon as Business.CallMe is called, strOne in Business.CallMe is equal to "-32768" as a string. If I pass strTwo as Nothing, it remains Nothing.
What is going on here?
|
|
|
|
|
jbeckh2 wrote: I won't paste the actual code, but I'll duplicate the circumstances
Paste the actual code in use. Not the whoel thing, just the relevant parts. We've been burned too many times by "translated" code that works perfectly and is only slightly different from the actual code that's won't work.
But, I put together the exact same "circumstances" and the code works as expected. Both values come up as Nothing.
What version of VB are you using?
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 15:11 Thursday 13th April, 2006
|
|
|
|
|
I actually found the problem. I referenced the wrong variable.
|
|
|
|
|
See what I mean? 
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I have a simple game i am writing. I want a sound to play automatically when a form displays. I imbedded WMP on the form. If you click it, a window displays allowing the user to choose a sound, I want it to play as soon as the form displays withou any interaction from the user.
Bill
|
|
|
|
|
AxWindowsMediaPlayer1.Ctlcontrols.play()
You can find more about Media Players automation interface here[^].
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi
I am trying to convert a systemtime to a normal time. I am using the following code I found in a C# bit, converted it to vb.net
C#
private static DateTime SystemTimeToDateTime( ref SYSTEMTIME st )
{
FILETIME ft = new FILETIME();
NativeMethods.SystemTimeToFileTime( ref st, out ft );
DateTime dt = new DateTime( ( ( (long) ft.dwHighDateTime ) << 32 ) | (uint) ft.dwLowDateTime );
return dt;
}
VB.NET
Private Shared Function SystemTimeToDateTime(ByRef st As SYSTEMTIME) As DateTime
Dim ft As FILETIME = New FILETIME
NativeMethods.SystemTimeToFileTime(st, ft)
Dim dt As DateTime
dt = New DateTime(((CType(ft.dwHighDateTime, Long)) << 32) + CType(ft.dwLowDateTime, Integer))
Return dt
End Function
It all goes fine to the part CType(ft.dwLowDateTime, Integer) as in vb.net the filetime is returned as integer and not as int as it is done in C#. C# to VB converter converted the | into or. I found more articles use + so I changed it as well.
But as you can guess it doesn't work and I can't find any non C# stuff anywhere regarding this. So I gues s there is another way of doing or my code is just screwed. Can you help or suggest anything, except reprogramming everything in C# )
Cheers David
Think, try, think, think, try, think, think, think, try, ASK, think, try, advance on step and start over...
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
