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
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Dim cn As New ADODB.ConnectionPrivate Sub cmdbuscar_Click()
Dim idcodigo As String
idcodigo = InputBox("ingrese codigo")
If idcodigo = Empty ThenMsgBox "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.SetFocusExit Sub
End If
If Text2.Text = "" Then
MsgBox ("debe llenar los campos")
Text2.SetFocusExit Sub
End If
If Text3.Text = "" Then
MsgBox ("debe llenar los campos")
Text3.SetFocusExit Sub
End If
If DataCombo1.Text = "" Then
MsgBox ("debe llenar los campos")
DataCombo1.SetFocusExit 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
0
