[RESOLVED] Error : ByRef argument type mismatch

[Jagjit]

Hi

Ob this line
If IsDatabaseAvailable(strDB)
it is giving me this error " ByRef argument type mismatch"

strDB = "Jaggan" ' Database Name
If IsDatabaseAvailable(strDB) Then
cnn1.Open "Driver=SQL Server;Server=" & ServerName & ";Database=" & strDatabase & ";uid=" & uid & ";pwd=" & pwd & ";"
Endif

Private Function IsDatabaseAvailable(strDatabase As String) As Boolean
Dim conFind As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL, m_database As String
Set conFind = New ADODB.Connection
Set rs = New ADODB.Recordset

conFind.ConnectionString = "Provider = sqloledb;Data Source=" & ServerName & ";uid=" & uid & ";pwd=" & pwd
conFind.Open

m_database = "Test"
strSQL = "SELECT Name FROM master..sysdatabases WHERE Name = '" & m_database & "'"
rs.Open strSQL, conFind, adOpenStatic, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
IsDatabaseAvailable = True
End If
rs.Close
Set rs = Nothing
conFind.Close
Set conFind = Nothing
End Function

Thanks

[MarkT]

Is strDB declared as a string?

[Jagjit]

Hi

Yes i have declared string variable

Thanks

[DataMiser]

Is it declared in scope where the error occurs?

Private Sub MySub()
Dim strDB as String
strDB = "Jaggan" ' Database Name
If IsDatabaseAvailable(strDB) Then
' more code
End Sub

Would be fine

Private Sub Form_Load()
Dim strDB as String
'more code
End Sub

Private Sub MySub()

strDB = "Jaggan" ' Database Name
If IsDatabaseAvailable(strDB) Then
' more code
End Sub

Would generate an error

[DataMiser]

note

Dim strSQL, m_database As String

In the code above strSql is not declared as a string so if you did it like this even if it is in scope then it still is not right what that codes tells VB is

Dim strSQL as Variant, m_database As String

If you want it to be a string you have to tell it so

[Bobbles]

You have not shown us all the code prior to making the call
What may be causing your problem is using declarations similar to this -
Dim strSQL, m_database As String
Instead use -
Dim strSQL as String, m_database As String

You must specifically mention the data type for each variable on a combined line.

[Jagjit]

Thks Miser