|
DatabaseName was the fully qualified path to your database. In your case, it's exactly the same as your Data Source value in your connection string.
\\IP Address or Computer Name\DIR\masterFile.mdb
|
|
|
|
|
got my database running over LAN. thanks for the tips...
|
|
|
|
|
hi,
i have a problem with my project. i have an existing system which is a stand alone app. using ms access 95 file format, created in VB6 using Visual Data Manager... well because it's a bit old system. but is runs quit very well.
the system owners decided to make the app. run over the network, they have a total of 10 workstations on their office. 1 is for the primary admin (Win7 OS) and 4 is for staff (Win7 OS). 5 are for users (Win XP SP2 OS). the database is located at workstation 1, the other computers wants to access the database.
here is a sample code given to me:
Option Explicit
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
as the path
but i get an error "User-Define not defined" on
Dim Conn As New ADODB.Connection
am i missing something like an add-on or reference maybe, like in C# we used to add the reference for SQL connection.
do i need to install something?
|
|
|
|
|
loid grey manuel wrote: Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
I can only hope IP Address or Computer Name isn't what you are using...
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Are you saying that you throw an exception when you try to declare Conn?
This is VB6 isn't it?
|
|
|
|
|
Shouldn't that be "\\ComputerName\SHARENAME\DIR\masterfile.mdb"?
|
|
|
|
|
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
Looks correct(if you replace with valid IP and DIR) but the error "User-Define not defined" tells that you didn't add the reference to your project.
To add the reference: click Project menu and Click References.
Now tick the checkbox 'Microsoft ActiveX Data Objects 2.x Library'.
|
|
|
|
|
thanks. i was able to open the database, but i cant seem to transfer the data to my record set
Dim cn As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
'Dim strsql As String
'get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "ucuMasterFile.mdb ;Persist Security Info = False"
cn.Open
I get error on this line
MsgBox (myRecordSet.Fields("AdminId"))
the error is
runtym err '91'
object variable or with block variable not set
modified on Friday, March 25, 2011 6:15 AM
|
|
|
|
|
Can you show us the line where you assign a value to the MyRecordSet object? Have you verified that AdminId is not null for that particular record?
I are Troll 
|
|
|
|
|
after a long search i was able obtain the data needed for login. using the code below
Dim cn As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
Dim strsql As String
'get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\IP Address or PC name\ucu\ucuMasterFile.mdb ;Persist Security Info = False"
cn.Open
Set myRecordSet = cn.Execute("Select * from tblAdmin")
i was able show the AdminId and PW using a MsgBox..
but when i try to login, somehow it does not allow me to continue. maybe with the verification?
here is the code for login:
Private Sub mnuLogin_Click()
If myRecordSet.BOF = True And myRecordSet.EOF = True Then
Exit Sub
End If
myRecordSet.MoveFirst
Do
If myRecordSet.Fields("AdminId") = txtid.Text And myRecordSet.Fields("AdminPw") = txtpw.Text Then
Unload Me
Unload frmTest
ucuLibMain.Show
Exit Sub
Else
lblerror.Caption = "Unable to Login: Invalid Username and/or Password"
End If
myRecordSet.MoveNext
Loop Until myRecordSet.EOF
End Sub
i get an error
runtym err '91'
object variable or with block variable not set
on the first line
If myRecordSet.BOF = True And myRecordSet.EOF = True Then so i can't continue..
need help. thanks again for quick replies..
modified on Friday, March 25, 2011 10:14 AM
|
|
|
|
|
Does the error occur on remote(Client) PC or your own PC(vb6 installed)? If its client PC, then you have to uose 'Package & Deployment Wizard' to redistribute on client PC. Be sure you add Ms Data access components. W7 is not a good place to run vb6 app.
|
|
|
|
|
maybe because i'm using a Win7 OS. but i am using VM ware to program in vb6. would it somehow affect the networking part?
|
|
|
|
|
If Set myRecordSet = cn.Execute("Select * from tblAdmin") works then all the query will work fine(if your schema allows). We need details about you problem.
Finally i would like to say that you leave vb6 and download VS2010 form Microsoft[^] and you will see you were coding in dark age while using vb6. If you still want vb6 you are wasting your time and life.
|
|
|
|
|
well, unfortunately for me... but, some clients still uses legacy apps. especially vb apps. so what can i complain about? This is what they require.. i have given them option to upgrade, well, they will have to think about it...
but anyways, thanks for the the sample code.., i got the project running over the LAN, but for XP only.. i advised the owner of the system not to transfer the system to win7 OS.. or compatibility issues may arise..
[RESOLVED]
|
|
|
|
|
Thanks in advance,
I am using "System.Net" to download files from the FTP , how can i get the Download time of a file , any suggestions ?
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
modified on Friday, March 25, 2011 7:23 AM
|
|
|
|
|
S0FTDEV wrote: any suggestions ?
yes, please clarify your question.
What is "download time"? is it the duration of the download? is it the current time while the download starts/ends? or what?
S0FTDEV wrote: how can i get
who is "i"? is it the server? is it the client?
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
There is no property to get this value. You have to know how big the file is, download some of the data, measure how long that takes, compute the remaining time based on that, download more of the data, measure how long that took, ... rinse and repeat.
|
|
|
|
|
If you mean "How long will it take to download this file" then it is impossible to say.
There are so many variables that chaos theory reigns!
In fact it is a matter bone of contention.
However you can do a rough reckoner if you know the download speed of the user, his type of connection etc.
There are apps that can give estimated times for different file sizes or connections speeds, a simple google search will reveal them to you.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
CCC Link[ ^]
Trolls[ ^]
|
|
|
|
|
you can try this:
Download_time=(HttpWebResponse.ContentLength)/(your_connection_speed);
as for example: A file size(ContentLength) is 1,048,576 bytes(1 MB) and you connection speed is 512KB then the
Download_time=(1,048,576/524,288) = 2 Seconds.
|
|
|
|
|
Thanks all for the replies , i had solved it. by using FTP method {content length}
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
I have several text boxes on my form each with the same right-click menu. Some of the items it has are cut, copy, paste, spell checking, and auto text entries. I have everything working except for the auto-text entries because I can not figure out how to get which text box the menu is attached to. The code I have right now (which is working) is when the menu is opened to determine which items should be enabled (for example if there is no text on the clipboard the paste menu item should be disabled):
Private Sub RightClickContextMenuStrip_Opened(ByVal sender As Object, ByVal e As System.EventArgs) Handles RightClickContextMenuStrip.Opened
Dim cms As ContextMenuStrip
Dim TempTextBox As TextBox
cms = CType(sender, ContextMenuStrip)
If TypeOf (cms.SourceControl) Is TextBox Then
TempTextBox = CType(cms.SourceControl, TextBox)
If Not String.IsNullOrEmpty(TempTextBox.SelectedText) AndAlso TempTextBox.ReadOnly = False Then
mnuCut.Enabled = True
mnuCopy.Enabled = True
Else
mnuCut.Enabled = False
mnuCopy.Enabled = False
End If
If Clipboard.ContainsText Then
mnuPaste.Enabled = True
Else
mnuPaste.Enabled = False
End If
If My.Settings.AutoText Is Nothing OrElse My.Settings.AutoText.Count < 1 Then
mnuRightClickAutoText.Enabled = False
Else
mnuRightClickAutoText.DropDownItems.Clear()
For Each item As String In My.Settings.AutoText
Dim AutoTextItem As ToolStripItem
AutoTextItem = mnuRightClickAutoText.DropDownItems.Add(item)
AddHandler AutoTextItem.Click, AddressOf AutoText_Click
Next
End If
End If
End Sub
Now I have a function that captures which auto text sub-menu item is clicked, but I can't figure out how to find out which text box the menu is attached to. Here is my code thus far:
Private Sub AutoText_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim cms As ContextMenuStrip
Dim dpm As ToolStripDropDownMenu
Dim Item As ToolStripItem
Dim TempTextBox As TextBox
Dim selectionIndex As Integer
Item = CType(sender, ToolStripItem)
cms = CType(Item.OwnerItem.Owner, ContextMenuStrip)
If TypeOf (cms.SourceControl) Is TextBox Then
TempTextBox = CType(cms.SourceControl, TextBox)
selectionIndex = TempTextBox.SelectionStart
TempTextBox.Text = TempTextBox.Text.Insert(selectionIndex, Item.Text)
TempTextBox.SelectionStart = selectionIndex + Item.Text.Length
End If
End Sub
However with this code the cms.SourceControl is nothing. The menu is set up like this
Cut
Copy
Paste
------
AutoText -> Item1, Item2, Item3
------
Basic Filter
Advanced Filter
I'm capturing the click events on Item1, Item2, etc. but can't figure out what text box they go to. How do I get the source control in this circumstance. Thanks in advanced for any help.
|
|
|
|
|
IMO this has been asked and answered last week, see here[^].
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Actually what I found out is in my situation, with a dropdownmenuitem, there is a bug in the framework that actually clears the sourcecontrol property. I need to save the sourcecontrol property on the contextmenuopened event. Thanks anyways.
|
|
|
|
|
Hi.
I'm trying to encrypt text using advapi32.dll function CryptEncrypt, RC4.
Before encrypting, y call CryptAcquireContext and CryptCreateHash, but this last one returns me zero. Err.LastDllError says it is an 87, so invalid parameter, but can't figure out where is the error.
Private Const ALG_CLASS_HASH As Long = 32768 ' (4 < 13)
Private Const ALG_TYPE_ANY As Long = 0
Private Const ALG_SID_MD5 As Long = 3
Private Const CALG_MD5 As Long = ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5
....
Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" _
(ByRef phProv As Long, _
ByVal pszContainer As String, _
ByVal pszProvider As String, _
ByVal dwProvType As Long, _
ByVal dwFlags As Long) As Long
Private Declare Function CryptCreateHash Lib "advapi32.dll" _
(ByVal hProv As Long, _
ByVal algID As Long, _
ByVal hKey As Long, _
ByVal dwFlags As Long, _
ByRef phHash As Long) As Long
...
'CryptAcquireContext works fine
lResult = CryptAcquireContext(m_lProvider, sKeyRoot, CRYPTO_PROVIDER, PROV_RSA_FULL, 0)
If lResult = 0 Then
lResult = CryptAcquireContext(m_lProvider, sKeyRoot, CRYPTO_PROVIDER, PROV_RSA_FULL, CRYPT_NEWKEYSET)
If lResult = 0 Then
MsgBox(ERROR_AQUIRING_CONTEXT)
End If
End If
'Now this is where I get zero
' Create a handle to a hash object using the MD5 algorithm
lResult = CryptCreateHash(m_lProvider, CALG_MD5, 0, 0, lHash)
If lResult = 0 Then
Dim a As Long = Err.LastDllError
MsgBox(ERROR_CREATING_HASH)
Return ""
End If
Any idea what I am missing?
|
|
|
|
|
I didn't study that in any detail, however I noticed your prototype(s) is/are totally wrong; see here[^].
FWIW: if you need more information on P/Invoke, you may want to read this[^] first.
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
