Vbasic/sql
Hola, tengo una duda con este tema ya que no domino mucho sql y m gustaría saber porque m da un error de Null en esta linea (cmb_empresa.AddItem rste!nom_empresa) supongo que es porque no se le da un valor correcto
Private Sub carga_empreses()
Dim csql As String
Dim rste As ADODB.Recordset
csql = "select nom_empresa,codigo_empresa from empresa where activo=1 order by nom_empresa"
Set rste = cn.Execute(csql)
While Not rste.EOF
cmb_empresa.AddItem rste!nom_empresa
cmb_codi_emp.AddItem rste!codigo_empresa
rste.MoveNext
Wend
End Sub
gracias,m gustaria q contestaras a mi email ([email protected])
Private Sub carga_empreses()
Dim csql As String
Dim rste As ADODB.Recordset
csql = "select nom_empresa,codigo_empresa from empresa where activo=1 order by nom_empresa"
Set rste = cn.Execute(csql)
While Not rste.EOF
cmb_empresa.AddItem rste!nom_empresa
cmb_codi_emp.AddItem rste!codigo_empresa
rste.MoveNext
Wend
End Sub
gracias,m gustaria q contestaras a mi email ([email protected])
Respuesta de denciso
1
En que momento te marca el error y como tienes definidos los campos de tu tabla.
Pues m sale el error cuando le doy a un botón para generar sobres, que es para lo que sirve la aplicación y los campos no se como están definidos, porque es de un programa complejo y no se donde están definidos, ¿cómo podría encontrarlos?
Porque el campo de tu tabla permite nulos en los nombres de las empresas, por eso te pregunto la definición, tal vez así se modifique el problema de la programación:
if not isnull(rste!nom_empresa) then
cmb_empresa.AddItem rste!nom_empresa
end if
if not isnull(rste!nom_empresa) then
cmb_empresa.AddItem rste!nom_empresa
end if
