Visual Basic - no es posible insertar una fila vacia

Life is soft - evento anual de software empresarial
   
Vista:

no es posible insertar una fila vacia

Publicado por hitlman (4 intervenciones) el 25/01/2011 23:53:09
necesito ayuda estoy trabajando con ado y datagrid
cuando preciono el boton nuevo y salgo de la aplicacion me sale el sigiente mensaje
no es posible insertar una fila debe contener al meos un valor columna establecida
lo mismo ocurre cuando preciona el boton grabar y salgo de la aplicacion
esta aplicacion que acabo de hacer no permite tener duplicados
aqui va el codigo

Dim cn As New ADODB.Connection

Private Sub cmdbuscar_Click()
Dim idcodigo As String
idcodigo = InputBox("ingrese codigo")
If idcodigo = Empty Then
MsgBox "Debe ingresar datos", , "Aviso"
Else
Ado.Recordset.MoveFirst
Ado.Recordset.Find "codigo = '" & idcodigo & "'"
If Ado.Recordset.EOF Then
MsgBox ("no hay registro")
End If
End If
End Sub

Private Sub cmdeditar_Click()

Ado.Recordset.Update
End Sub

Private Sub cmdeliminar_Click()
On Error Resume Next
Ado.Recordset.Delete
Ado.Recordset.MoveLast
Me.Label4 = Ado.Recordset.RecordCount
End Sub

Private Sub cmdgrabar_Click()


If Text1.Text = "" Then
MsgBox ("debe llenar los campos")
Text1.SetFocus
Exit Sub

End If
If Text2.Text = "" Then
MsgBox ("debe llenar los campos")
Text2.SetFocus
Exit Sub

End If
If Text3.Text = "" Then
MsgBox ("debe llenar los campos")
Text3.SetFocus
Exit Sub

End If
If DataCombo1.Text = "" Then
MsgBox ("debe llenar los campos")
DataCombo1.SetFocus
Exit Sub

End If


Dim duplicados As New Recordset
duplicados.Open "SELECT * FROM lista WHERE codigo = '" & Text1.Text & "'", cn, adOpenDynamic, adLockOptimistic
If duplicados.RecordCount > 0 Then
MsgBox "campos dupilicados", , "Aviso"
End If
Exit Sub


Call grabar


End Sub


Sub grabar()

Ado.Recordset.Update

Ado.Recordset.MoveLast

Me.Label4 = Ado.Recordset.RecordCount

End Sub

Private Sub cmdnuevo_Click()

Ado.Recordset.AddNew

End Sub


Sub nuevo()
Ado.Recordset.AddNew
End Sub


End Sub

Private Sub Form_Load()

Dim rs As New Recordset
cn.CursorLocation = adUseClient
Call IniciarConexion

rs.Open "select nom_dist from distrito", cn, adOpenStatic, adLockOptimistic

Set Me.DataCombo1.RowSource = rs

Me.DataCombo1.ListField = "nom_dist"

Ado.Recordset.MoveLast

Me.Label4 = Ado.Recordset.RecordCount


End Sub

Sub IniciarConexion()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Escritorio\kgv\bd1.mdb;Persist Security Info=False"

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder