Sub Button1_Click
Dim Rt As ResultSet
Dim Cursor As JdbcResultSet
Try
Cursor = modSQLServer.SQLGetRecordSet("Select matricula from vehiculos")
'no exist this methor:
' Msgbox (Cursor.RowCount,"")
Catch
Log(LastException)
End Try
Try
Rt = modSQLServer.SQLGetRecordSet2_deprecated("Select matricula from vehiculos")
Msgbox (Rt.RowCount,"")
Catch
Log(LastException)
End Try
End Sub
'PART OF code in module modSQLServer:
Sub SQLGetRecordSet2_deprecated(SQL As String) As ResultSet
Dim Rs As ResultSet
Try
SQLOpenConection
Rs = SqlServer.ExecQuery(SQL )
Return Rs
Catch
Log(LastException)
Msgbox (LastException.Message,"Error SQLGetRecordset")
Return Null
End Try
End Sub
Sub SQLOpenConection()
SqlServer.InitializeAsync("SqlServer", "net.sourceforge.jtds.jdbc.Driver", "jdbc:jtds:sqlserver:" & V_SqlData.ConnStr & ";databaseName=" & V_SqlData.DBName & ";user=" & V_SqlData.UserName & ";password=" & V_SqlData.PasswordTb & ";appname=FricaltecAPP;wsid=TEST;loginTimeout=10;socketTimeout=10", "", "") 'sql 2012
End Sub