469,125 Members | 1,676 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,125 developers. It's quick & easy.

reading from ini

3
i have this code that i have written in VB6 and it works ok when i compile and run the program and it compiles ok when make the program into an exe. but when i go to launch the exe. it doesn't work. the error mesage thaty i get is:

arguments are of wrong type, are out of acceptable range, or are in coflict with one another.

I know why this happens, it is because i am trying to read the text from a form from another form:

With cnUser
.Provider = FrmOptions.TxtProvider.Text
.Open FrmOptions.TxtUserPath.Text

the code that i am using to read and write to the ini file is:

Private Sub CmdSaveOptions_Click()

Dim lngRet As Long
Dim lngRets As Long
Dim lngRetss As Long
Dim lngRetsss As Long

Dim strIni As String
Dim strSection As String
Dim strKeyName As String
Dim strKeyValue As String

Dim strInis As String
Dim strKeyNames As String
Dim StrSections As String
Dim StrKeyValues As String

Dim strIniss As String
Dim strKeyNamess As String
Dim StrSectionss As String
Dim StrKeyValuess As String

Dim strInisss As String
Dim strKeyNamesss As String
Dim StrSectionsss As String
Dim StrKeyValuesss As String

strIni = Trim$(txtConfig)
strSection = Trim$(txtSection)
strKeyName = Trim$(txtKeyName)
strKeyValue = Trim$(txtKeyValue)

lngRet = WritePrivateProfileString( _
strSection, _
strKeyName, _
strKeyValue, _
strIni)


strInis = Trim$(txtConfig)
StrSections = Trim$(TxtSections)
strKeyNames = Trim$(txtKeyNames)
StrKeyValues = Trim$(TxtUserPath)

lngRets = WritePrivateProfileString( _
StrSections, _
strKeyNames, _
StrKeyValues, _
strInis)

strIniss = Trim$(txtConfig)
StrSectionss = Trim$(TxtSectionss)
strKeyNamess = Trim$(txtKeyNamess)
StrKeyValuess = Trim$(txtDatabasePath)

lngRetss = WritePrivateProfileString( _
StrSectionss, _
strKeyNamess, _
StrKeyValuess, _
strIniss)

strInisss = Trim$(txtConfig)
StrSectionsss = Trim$(TxtSectionsss)
strKeyNamesss = Trim$(txtKeyNamesss)
StrKeyValuesss = Trim$(TxtProvider)

lngRetsss = WritePrivateProfileString( _
StrSectionsss, _
strKeyNamesss, _
StrKeyValuesss, _
strInisss)


Me.Hide



End Sub

Public Sub Form_Load()
TxtUserPath.Enabled = False
TxtProvider.Enabled = False
txtKeyValue.Enabled = False
txtSection.Enabled = False
txtSection.Visible = False
txtConfig.Enabled = False
txtKeyName.Enabled = False
txtKeyName.Visible = False
txtKeyNames.Visible = False
txtKeyName.Enabled = False
TxtSections.Visible = False
TxtSections.Enabled = False
txtConfigs.Visible = False
txtConfigs.Enabled = False
txtDatabasePath.Enabled = False





txtConfig.Text = App.Path & "\" & App.EXEName & ".ini"
txtSection.Text = "Database"
txtKeyName.Text = "Path"
txtKeyValue = "?:\train\database\"

TxtSections.Text = "Databases"
txtKeyNames.Text = "Path"
TxtUserPath = "H:\??Apps\Letter Composer\"

TxtSectionss.Text = "Databasess"
txtKeyNamess.Text = "Path"
txtDatabasePath = "G:\My Documents\letter composer stuff\?????????????\Letter Composer v2\Options.mdb"

TxtSectionsss.Text = "Provider"
txtKeyNamesss.Text = "Provider"
TxtProvider = "Microsoft.Jet.OLEDB.4.0"



Dim lngRet As Long
Dim lngRets As Long
Dim lngRetss As Long
Dim lngRetsss As Long

Dim strIni As String
Dim strSection As String
Dim strKeyName As String
Dim strKeyValue As String

Dim strInis As String
Dim strKeyNames As String
Dim StrSections As String
Dim StrKeyValues As String

Dim strIniss As String
Dim strKeyNamess As String
Dim StrSectionss As String
Dim StrKeyValuess As String

Dim strInisss As String
Dim strKeyNamesss As String
Dim StrSectionsss As String
Dim StrKeyValuesss As String

strIni = Trim$(txtConfig)
strSection = Trim$(txtSection)
strKeyName = Trim$(txtKeyName)

strKeyValue = Space(255)
lngRet = GetPrivateProfileString( _
strSection, _
strKeyName, _
"", _
strKeyValue, _
Len(strKeyValue), _
strIni)

txtKeyValue = Left$(strKeyValue, lngRet)


strInis = Trim$(txtConfig)
StrSections = Trim$(TxtSections)
strKeyNames = Trim$(txtKeyNames)
StrKeyValues = Space(255)

lngRets = GetPrivateProfileString( _
StrSections, _
strKeyNames, _
"", _
StrKeyValues, _
Len(StrKeyValues), _
strInis)





TxtUserPath = Left$(StrKeyValues, lngRets)

strIniss = Trim$(txtConfig)
StrSectionss = Trim$(TxtSectionss)
strKeyNamess = Trim$(txtKeyNamess)
StrKeyValuess = Space(255)

lngRetss = GetPrivateProfileString( _
StrSectionss, _
strKeyNamess, _
"", _
StrKeyValuess, _
Len(StrKeyValuess), _
strIniss)





txtDatabasePath = Left$(StrKeyValuess, lngRetss)

strInisss = Trim$(txtConfig)
StrSectionsss = Trim$(TxtSectionsss)
strKeyNamesss = Trim$(txtKeyNamesss)
StrKeyValuesss = Space(255)

lngRetsss = GetPrivateProfileString( _
StrSectionsss, _
strKeyNamesss, _
"", _
StrKeyValuesss, _
Len(StrKeyValuesss), _
strInisss)





TxtProvider = Left$(StrKeyValuesss, lngRetsss)

End Sub


is it not working because i am not loading the ini or something. it is weird how it works when i run the program but when i make it into an exe it fails to work please help

thanks
Sep 12 '06 #1
1 2050
steve0
3
it's alright i sorted it
Sep 13 '06 #2

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

reply views Thread by Andy | last post: by
6 posts views Thread by Raymond Hettinger | last post: by
4 posts views Thread by Xah Lee | last post: by
24 posts views Thread by Hendrik Schober | last post: by
19 posts views Thread by Lionel B | last post: by
4 posts views Thread by Oliver Knoll | last post: by
6 posts views Thread by KevinD | last post: by
9 posts views Thread by Mike Reed | last post: by
4 posts views Thread by Gaijinco | last post: by
1 post views Thread by CARIGAR | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.