Visual Basic - Checkear DB

Life is soft - evento anual de software empresarial
   
Vista:

Checkear DB

Publicado por Jaimico (21 intervenciones) el 06/03/2010 02:16:22
Buenas, les explico mi problema. Tengo un form que se llama entradas, en este guardo las entradas de productos. Ok, Tengo un sistema de Codigo de entrada, diferente al codigo de producto. Este esta indexado y el de productos no. Ok, el problema viene cuando no hay registros (por consiguiente no logra encontrar el ultimo codDeEntrada y falla, eso es lo que prescisamente necesito, que primero verifique la DB y si no hai registro que ponga 1 como default. Gracias, aqui el codigo

'aqui el codigo
Data1.Recordset.AddNew
Data2.RecordSource = "select max(CODENTRADA) as codentradas from entradas"
Data2.Refresh
'aqui viene el problema
Text1 = Data2.Recordset!codentradas + 1
End If
Text2.Text = Format(Now, "dd/mm/yyyy")
Text3.SetFocus
Text4 = ""
Text5 = ""
Text6 = ""
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

RE:Checkear DB

Publicado por Pedro Luis (878 intervenciones) el 08/03/2010 12:55:33
if Data2.Recordset.Recordcount=0 then
text1=1
else
Data2.RecordSource = "select max(CODENTRADA) as codentradas from entradas"
Data2.Refresh
Text1 = Data2.Recordset!codentradas + 1
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar