check if exists... *Resolved*

[BroesWillems]

Dim myConnection As ADODB.Connection    
Dim Manu As ADODB.Recordset             
 
myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbloc
myConnection.Open
 
Set Manu = myConnection.Execute("SELECT * FROM installatie WHERE PC_ID LIKE text")
 
Myconnection.close
manu.close

The above code works fine, but i wan't a query that checks if a record excists... how do i do that?

Thx

[axion_sa]

Dim strSQL As String
 
strSQL = "SELECT COUNT(*) As Cnt FROM Installatie WHERE PC_ID LIKE 'text%'"
Set Manu = New ADODB.Recordset
Manu.Open strSQL, myConnection
If (Manu("Cnt") > 0) Then
    MsgBox "Not empty"
Else
    MsgBox "Empty"
End If
 
' And your clean up code.

[BroesWillems]

Originally posted by axion_sa

Dim strSQL As String
 
strSQL = "SELECT COUNT(*) As Cnt FROM Installatie WHERE PC_ID LIKE 'text%'"
Set Manu = New ADODB.Recordset
Manu.Open strSQL, myConnection
If (Manu("Cnt") > 0) Then
    MsgBox "Not empty"
Else
    MsgBox "Empty"
End If
 
' And your clean up code.

Thanks!

[swatty]

If you're planning to use the recordset you could check the recordcount of it.

Dim myConnection As ADODB.Connection    
   Dim Manu As ADODB.Recordset             
 
   myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbloc
   myConnection.Open
 
   Set Manu = myConnection.Execute("SELECT * FROM installatie WHERE PC_ID LIKE 'text%'")
 
   If Manu.RecordCount > 0 Then
      MsgBox "Installatie has " & Manu.Recordcount & " records"
   Else
      MsgBox "Installatie has no records with PC_ID like text"
   End If
   Manu.close
   Myconnection.close