Forum: access Ver Tópicos Seleccionar Forum:   
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Criar Base de Dados por João Teixeira em 17-05-2007 06:25 (1)

Como criar uma Base Dados e ver numa grelha?

Resposta a esta questão:

Comentários:

Re: Criar Base de Dados por JoaTex em 17-05-2007 06:25 (2)
Crie uma Base dados com o nome: Teste.mdb (ponha a File em c:\Teste.mdb)
3 Campos indexados por Nome
Name,Age,Country (Tudo Text)
Nomeie a Tabela como Table1.
Entre data nos Campos: Ex:
John,25,England
Charles,20,France
Rocky,27,USA

Abra uma Form 1 no seu projecto.
ponha 2 CommandButtons
command1 Named: New, Caption = UpDAte
command2 Named: Delete, Caption = Delete
1 data Control named: Data1
em Propriedades ajuste Databasename = c:\Teste.mdb
Recordset = Table1
Visible = False
1 grid control named: DataGrid1 (Microsoft Data Bound Grid Control 5.0)(SP3) Neste Exemplo
Em project properties DBgrid1 ajuste Data Mode = 0-Bound
Data Source= DAta1
Clique no botão direito do rato on dbgrid1 control na form1 e seleccione Retrieve Fields.
Clique no botão direito do rato na dbgrid1 control na form1 e seleccione Properties.

Seleccione General:
Caption: Teste - Table1
AllowAddNew,AllowDelete,AllowUpdate,ColumnHeaders,Enabled,MarqueeUnique - All Checkbox = on
Aceite Apply

Seleccione: Columns
Column0(Name),Caption = Name,DataField = Name
Column1(Age),Caption = Name,DataField = Age
Column2(Country),Caption = Name,DataField = Country

Seleccione Layout:
Column = Column0(NAme), Split = Split0, Alignement = 0-Left
Column = Column1(Age), Split = Split0, Alignement = 2 - Center, Apply
Column = Column2(Country), Split = Split0, Alignement = 0-Left

Seleccione Splits:
Correct ScrollBars = 2 - Vertical, Apply
OK

Salve o Seu projecto e corra o programa.Ajuste Size grid. Saia do programa e reajuste.
Agora, vá a Data1 Control Properties e em DatabaseName apague o directório.
Transfira a File c:\Teste.mdb para o directório da sua aplicação.
Deste modo quando fizer o seu executável ou destribuição do seu programa a sua basedados
estará incluida no mesmo directório.

Ponha este código na Form1:
Código Form:

Option Explicit

Private Sub ComDel_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
End Sub

Private Sub ComNew_Click()
Data1.UpdateRecord
End Sub

Private Sub DBGrid1_AfterInsert()
If DBGrid1.Row = 0 Then Data1.Recordset.AbsolutePosition = 0
End Sub

Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
Data1.DatabaseName = App.Path & "\Teste.mdb"
End Sub

Agora poderá ver os updates e controlos directamente na grelha.
Tente optimizar controlos como delete ou método de busca por exemplo.