Como criar uma Base Dados e ver numa grelha?
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. | |