error Code 
Author Message
 error Code

I am with a problem, in the hour of passing that queyr for the vb, only that
looking for the code
I am doing like this:

Private Sub txtlocalizar_Change()
Dim codigo As Integer
codigo = Val(txtlocalizar.Text)
Select Case IsNumeric(txtlocalizar.Text)
Case True
Set con = New ADODB.Connection
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\sisodonto.mdb")

Set cmd = New ADODB.Command
Set par = New ADODB.Parameter
Set rs = New ADODB.Recordset
With cmd
Set .ActiveConnection = con
.CommandType = adCmdStoredProc
.CommandText = "ccodprod"

.Parameters.Append par
Set rs = .Execute
End With

Case False

End Select
set grid.datasource = rs (O grid um componente MSHierarchical flex grid)
con.Close
End Sub



Mon, 01 Aug 2005 20:24:05 GMT
 error Code

where error occure?



Quote:
> I am with a problem, in the hour of passing that queyr for the vb, only
that
> looking for the code
> I am doing like this:

> Private Sub txtlocalizar_Change()
> Dim codigo As Integer
> codigo = Val(txtlocalizar.Text)
> Select Case IsNumeric(txtlocalizar.Text)
> Case True
> Set con = New ADODB.Connection
> con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
> "\sisodonto.mdb")

> Set cmd = New ADODB.Command
> Set par = New ADODB.Parameter
> Set rs = New ADODB.Recordset
> With cmd
> Set .ActiveConnection = con
> .CommandType = adCmdStoredProc
> .CommandText = "ccodprod"

> .Parameters.Append par
> Set rs = .Execute
> End With

> Case False

> End Select
> set grid.datasource = rs (O grid um componente MSHierarchical flex grid)
> con.Close
> End Sub



Tue, 02 Aug 2005 15:35:58 GMT
 error Code


Quote:
> I am with a problem, in the hour of passing that queyr for the vb, only
that
> looking for the code
> I am doing like this:

> Private Sub txtlocalizar_Change()
> Dim codigo As Integer
> codigo = Val(txtlocalizar.Text)
> Select Case IsNumeric(txtlocalizar.Text)
> Case True
> Set con = New ADODB.Connection
> con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
> "\sisodonto.mdb")

> Set cmd = New ADODB.Command
> Set par = New ADODB.Parameter
> Set rs = New ADODB.Recordset
> With cmd
> Set .ActiveConnection = con
> .CommandType = adCmdStoredProc
> .CommandText = "ccodprod"

> .Parameters.Append par
> Set rs = .Execute
> End With

> Case False

> End Select
> set grid.datasource = rs (O grid um componente MSHierarchical flex grid)
> con.Close
> End Sub



Mon, 15 Aug 2005 08:15:37 GMT
 
 [ 3 post ] 

 Relevant Pages 

1. HELP Error code 2244 & Error code 2465

2. SQL error codes / Delphi 3 error codes

3. Retrieving a error code from a SQL statement in SPL (Code SQLCA)

4. System ODBC parameter in VBA code gives 3423 run-time error code

5. Error messages only show error code, no text

6. Unknown error code / Unable to process error

7. SQL Server Driver Error: Invalid Cursor State (Error Code 24000)

8. DTS - error - insufficient system memory to run this query - Error code: 80074005

9. Query Oracle error message text by error code in RDBMS

10. how to capture error code and error msg on insert

11. Error ORA-00600: internal error code in DBVERIFY / UTILITY SAPDBA

12. Unable to process error, Unknown error code


 
Powered by phpBB® Forum Software