G
GW
Used the function below as part of creating access mdb in DN 1.1 (VS2003)
In VS2005 it provides a "Warning: Return type of function 'GFO_CatSet' is
not CLS-compliant."
Suggestions? (This project has to stick with Access mdb)
Public Function GFO_CatSet( ByVal sPathDbName As String) As ADOX.Catalog
Dim catX As ADOX.Catalog
Dim sXW As String
sXW = GFS_GetXW()
catX = New ADOX.Catalog
catX.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= " & sPathDbName & ";" _
& "User ID=;Password=;" _
& "Jet OLEDB:Engine Type=5;" _
& "Jet OLEDBatabase Password=" & sXW & ";"
Return catX
End Function '(GFO_CatSet)
In VS2005 it provides a "Warning: Return type of function 'GFO_CatSet' is
not CLS-compliant."
Suggestions? (This project has to stick with Access mdb)
Public Function GFO_CatSet( ByVal sPathDbName As String) As ADOX.Catalog
Dim catX As ADOX.Catalog
Dim sXW As String
sXW = GFS_GetXW()
catX = New ADOX.Catalog
catX.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= " & sPathDbName & ";" _
& "User ID=;Password=;" _
& "Jet OLEDB:Engine Type=5;" _
& "Jet OLEDBatabase Password=" & sXW & ";"
Return catX
End Function '(GFO_CatSet)