Programación General > C++ Builder

 No Acepta Valores Nulos

(1/2) > >>

Sagma:
Hola a todos he seguido, lo que dicen en este

Primeros Pasos

Pero aùn me sigue dando este error que muestro, son cuatro campos que uso y es en access, por supuesto que el primer campo es la llave.
Me pueden ayudar, mil gracias

mumo:
agregale algo como esto para restringir los datos nulos.

if (Edit1->Text.Trim()!=""&&Edit2->Text.Trim()!="")

si no puedes mandame el codigo y te le arreglo.

Sagma:
Gracias muno por tu interes, pero dime  a donde te lo envio??  :whistling:

he puesto  :rolleyes:


--- Citar ---//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from persona");
ADOQuery1->Open();
if (Edit1->Text.Trim()!=""&&Edit2->Text.Trim()!=""&&Edit3->Text.Trim()!=""&&Edit4->Text.Trim()!="")
{
ADOQuery1->Append();
ADOQuery1->FieldByName("registro")->AsString=Edit1->Text;
ADOQuery1->FieldByName("nombres")->AsString=Edit2->Text;
ADOQuery1->FieldByName("apellido1")->AsString=Edit3->Text;
ADOQuery1->FieldByName("apellido2")->AsString=Edit4->Text;
ADOQuery1->Post();
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
} else ShowMessage("Falta informacion");
}
//---------------------------------------------------------------------------

--- Fin de la cita ---

gracias  :D

Sagma:
Gracias muno por tu interes, pero dime  a donde te lo envio??  :whistling:

he puesto  :rolleyes:


--- Citar ---//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from persona");
ADOQuery1->Open();
if (Edit1->Text.Trim()!=""&&Edit2->Text.Trim()!=""&&Edit3->Text.Trim()!=""&&Edit4->Text.Trim()!="")
{
ADOQuery1->Append();
ADOQuery1->FieldByName("registro")->AsString=Edit1->Text;
ADOQuery1->FieldByName("nombres")->AsString=Edit2->Text;
ADOQuery1->FieldByName("apellido1")->AsString=Edit3->Text;
ADOQuery1->FieldByName("apellido2")->AsString=Edit4->Text;
ADOQuery1->Post();
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
} else ShowMessage("Falta informacion");
}
//---------------------------------------------------------------------------

--- Fin de la cita ---

gracias  :D

Sagma:
Gracias muno por tu interes, pero dime  a donde te lo envio??  :whistling:

he puesto  :rolleyes:


--- Citar ---//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from persona");
ADOQuery1->Open();
if (Edit1->Text.Trim()!=""&&Edit2->Text.Trim()!=""&&Edit3->Text.Trim()!=""&&Edit4->Text.Trim()!="")
{
ADOQuery1->Append();
ADOQuery1->FieldByName("registro")->AsString=Edit1->Text;
ADOQuery1->FieldByName("nombres")->AsString=Edit2->Text;
ADOQuery1->FieldByName("apellido1")->AsString=Edit3->Text;
ADOQuery1->FieldByName("apellido2")->AsString=Edit4->Text;
ADOQuery1->Post();
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
} else ShowMessage("Falta informacion");
}
//---------------------------------------------------------------------------

--- Fin de la cita ---

gracias  :D

Navegación

[0] Índice de Mensajes

[#] Página Siguiente