Acudo nuevamente a ustedes para haber si me aclaran un poco este problema...
Bueno el problema este
Solo me marca ese error al momento de ingresar los datos a la base de datos..
y al momento de depurar me manda a esto
y el codigo es este....
Código vb:
Ver originalOption Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Private Sub Ejecutar_Comando( _
sql As String, _
conexion As ADODB.Connection)
' nuevo Command
Dim Comando As New ADODB.Command
' propiedades
With Comando
.ActiveConnection = cn ' Especificar la conexión a usar
.CommandText = sql ' Especificar el Contenido del comando
.Execute ' ejecutar el command '''Aqui es donde me marca el error
Set Comando = Nothing
' Cargar los datos en la grilla
Call Cargar_Grilla(RAlumno.DataGrid1)
End With
End Sub
' cargar la grilla con el contenido del rs
Private Sub Cargar_Grilla(grilla As Object)
rs.Requery
Set grilla.DataSource = rs
End Sub
Private Sub Form_Load()
' Abre la conexión, y el Recordset
Call Iniciar_Conexion
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.Open "tabla", cn, adOpenStatic, adLockReadOnly, adCmdTable
End With
Call Cargar_Grilla(RAlumno.DataGrid1)
End Sub
' Inicializa la conexión ADO
Public Sub Iniciar_Conexion()
If cn Is Nothing Then
Set cn = New ADODB.Connection
With cn
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Basetemp.mdb" & ";Persist Security Info=False"
End With
End If
End Sub
' Cierra un Recordset
Sub Cerrar_Recordset(rst As ADODB.Recordset)
If Not DataGrid1.DataSource Is Nothing Then
Set DataGrid1.DataSource = Nothing
End If
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
Set rst = Nothing
End If
End Sub
' Cierra el objeto Connection
Sub cerrar_Conexion(pCn As ADODB.Connection)
If Not pCn Is Nothing Then
If pCn.State = adStateOpen Then pCn.Close
Set pCn = Nothing
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Cerrar_Recordset(rs)
Call cerrar_Conexion(cn)
End Sub
Private Sub KewlButtons1_Click()
If Text66.Text = "" Or _
Text1.Text = "" Or _
Text68.Text = "" Then
MsgBox "Datos incompletos", vbCritical, "Error ..."
Exit Sub
End If
sql = "Insert Into tabla " _
& "(No Control,Parentesco,Edad) " _
& "Values ('" & Text66.Text & _
"','" & Text1.Text & "'," _
& Text68.Text & ")"
Call Ejecutar_Comando(sql, cn)
End Sub
Se lo agradecere mucho al que ayude...