hola migos .. pues resulta que en un post anterior solicitaba ayuda de como guardar datos de un mshflex a una base de datos sql.. pues investigando y estudiando ya pude
solo que ahora tengo un problema.. que al guardar los datos tambien me guarda lo que tiene la ultima fila del grid , que en mi caso no tiene nada son vacias las celdas

este es mi codigo para guardar al dar cleck al botom

rs.Open "select *from empleados ", cnn, adOpenDynamic, adLockOptimistic

With Grid1
For j = 1 To Grid1.Rows - 1
rs.AddNew
For i = 1 To Grid1.Cols - 1
If Not IsNull(Grid1.TextMatrix(j, i)) Then
rs(i - 1) = Grid1.TextMatrix(j, i)
End If
Next i
rs.Update
Next j
End With



en que momento le pongo para que la ultima fila no me la guarde.. osea que si son vacias la fila o celdas no guarde nada.. no haga el update...

este es m,i codigo donde inserto datos al grid desde unos textbox



Private Sub CmdAgregar_Click()
With Grid1
.TextMatrix(.Row, 1) = Text1
.TextMatrix(.Row, 2) = Text2
.TextMatrix(.Row, 3) = Text3
.TextMatrix(.Row, 4) = Text4
If .Row + 1 >= .Rows Then
.AddItem ""
End If
.Row = .Row + 1
'Suponemos que al menos se pueden mostrar 5 filas
If .Row > 5 Then
.TopRow = .Row - 5
End If

End With
End Sub


cuando le doy al boton me pasa los datos de los text a el grid pero tambien me
agrega una fila...

me pueden ayudar mis queridos amigos y colegas.. me siento uno de uds. aunque no sepa mucho...jejejeje

Que tal...... yo diria que entre la sentencia FOR y el rs.AddNew pongas una condicion que verifique si la primer columna (o la segunda o la tercera... eso deende de ti) tiene datos porque yo supongo que toto el renglon esta en blanco..... seria algo asi:

'Colocarse en el primer renglon y la primer columna
grid1.row=1
grid1.col=1
if len(trim$(grid1.text))>0 then
' Aqui van todas tus demas sentencias
end if


de esa forma si se detecta la columna en blanco pues no se brinca al sig. renglon... que en tu caso como es el ultimo pues ya se sale del bucle FOR......

Espero te sirve esto... Hasta Luego......

__________________
Guillermo Rentería

Si estás seguro que la última fila está vacía cambia el código por:

bien.,,estoy probando los dos consejos.. ahora aprovechando sus sabios consejos.. como hago para validar si lo que contiene la celda es texto, numero, si y no ( boolean) , etc...

y como lo guardaria---en eso ando ahora...

poco a poco.. ya estoy aprendiendo a programar , gracias a sus consejos---

pero me falta mucho para llegar a ser como uds.


espero sus respuestas..


y gracias muchas gracias

en la hoja de Codigo coloca Is (y luego Ctrl + J), ahi te apareceran los IsNumeric, IsDate.. etc...

ej.
If IsNumeric(Text1) then 'Es verdadero
'..................
endif

__________________
-----------------------
Alejandro Flores R.