Visual Basic 6 & Access 2000

[Luciano]

Hi Robert,

First you will have to decide which technology to use
to access the Microsoft Jet database engine.

The two options you have with VB 6.0 are:

Microsoft Data Access Objects (DAO)
Microsoft ActiveX Data Objects (ADO)

Once decided, stick with one!

My two cents advice is to use ADO.

* * *

Are you sure that the users of this forum
are really interested in this stuff?

There are hundred of forums and tutorials talking
about VB, so why not search and subscribe there?

Best regards,

Luciano

[rhino]

Are you sure that the users of this forum
are really interested in this stuff?

There are hundred of forums and tutorials talking
about VB, so why not search and subscribe there?

Isn't that why it's posted in the OFF TOPIC forum?

[Demon]

Search: Key Word(s): vb

Showing results 1 to 25 of 134


I think that explains why this thread is justified.

[mister_e]

There is many Programming forum like the nice www.experts-exchange.com/ but they're not really hardware oriented... well those i know so far.

http://www.programmersheaven.com/ is another great source.

Or 1 Million in my bank account will be 'tha solution' LMAO!

[Demon]

What techniue would you use to store a "cookie" in VB? I set a drive, folder and filename in a form and I'd like to save that value between sessions.

Is there a nice and efficient way of doing this besides writing to a text file? Is there a standard way of doing this? I'd prefer a technique where the user could not get his grubby hands into the file and screw up pointers.

Robert

[rhino]

What techniue would you use to store a "cookie" in VB? I set a drive, folder and filename in a form and I'd like to save that value between sessions.

I use INI files... that's mainly what they're for. Here's a module I use for them. Just add it to your project and use WriteProfileString & FetchProfileString functions to write and read to the INI file.

'ModINIFunctions.bas
Option Explicit

Private msWinPath As String
Private mlRetLength As Long
Private msDirReturn As String
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


Public Function FetchProfileString(ByVal sINIFile As String, ByVal sApp As String, _
                                   ByVal sKey As String, Optional DefVal As Variant) As String
'Purpose: Reads information from a *.INI file

'Inputs:    sINIFile    String      Name of file INI file including path
'           sApp        String      Name of application section in INI file
'                                   Example [My App]
'           sKey        String      key name under application section
'           DefValue    String      default value of key
'
'           Example   [MyApp]
'                     MyKey = MyValue

'Assumptions:
'           1.  Windows API GetPrivateProfileString function declared with the following statement in the
'               Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA"
'                   (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'

'Effect:   None
    
    Dim sReturn As String
    Dim sDefVal As String
    Dim mlReturnLength As Integer
    
    
    If IsMissing(DefVal) Then
        sDefVal = ""
    Else
        sDefVal = CStr(DefVal)
    End If

  '  msDirReturn = Dir(sINIFile)
    
  '  If msDirReturn = "" Then
  '      mlRetLength = WritePrivateProfileString(sApp, sKey, sDefVal, sINIFile)
  '  End If
    
    sReturn = String$(255, 0)
    mlRetLength = GetPrivateProfileString(sApp, sKey, sDefVal, sReturn, 255, sINIFile)
    FetchProfileString = Left$(sReturn, mlRetLength)
    
End Function

Public Function WriteProfileString(ByVal sINIFile As String, ByVal sApp As String, _
                                   ByVal sKey As String, ByVal sVal As String) As Boolean
    
'Purpose: stores information to a *.INI file

'Inputs:    sINIFile    String      Name of file INI file including path
'           sApp        String      Name of application section in INI fil
'                                   Example [My App]
'           sKey        String      key name under application section
'           sValue      String      value of key
'
'           Example   [MyApp]
'                     MyKey = MyValue

'Assumptions:
'           1.  Windows API WritePrivateProfileString function declared with the following statement in the
'               Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA"
'                (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'           2. if *.INI file does not exist this function will create the file

'Effect:   Contents of *.INI file

Dim sReturn As String
    
    mlRetLength = WritePrivateProfileString(sApp, sKey, sVal, sINIFile)
    
End Function

Here's an example of reading in the language value under the Section named SAP in the Pack.ini file.

   PstrLang = FetchProfileString(App.Path & "/PACK.INI", "SAP", "LANGUAGE", "EN")

Here's an example of how the data in the INI file would look.

;comments use the semicolon
;In this example parameter sApp =  SAP
;parameter sKey = Language (there can be multiple keys under one app parameter)
;The value returned to PstrLang in the example above is EN
[SAP]
LANGUAGE=EN

This is a really useful way of storing different user preferences etc.
Another method would be writing and reading to the registry. But I'll let you explore that option.

[Demon]

Thanks, that looks great.

I'm not too keen on writing to the registry.

Robert


EDIT: Are you sure about this statement?

-----------------------------------------------------
Here's an example of reading in the language value under the Section named SAP in the Pack.ini file.

Code:

PstrLang = FetchProfileString(App.Path & "/PACK.INI", "SAP", "LANGUAGE", "EN")
-----------------------------------------------------

Why read the INI file to find sValue if you are providing it in the statement? This would look more like a Write statement no?

[Demon]

There is many Programming forum like the nice www.experts-exchange.com/ but they're not really hardware oriented... well those i know so far.

...

The thing is that several of us are going to go through the same steps. It would be a waste of resources to let people have to sprawl all over when all we need are a few good tutorial links and some help on a few questions.

I'm sure there are tons of good places for GSM, GPS and Bluetooth information. What's the difference? This is just another application that will use PIC and PBP. And when you think about it, Windows is EVERYWHERE today, a lot more than the 3 other applications.

Robert