DATAFILD DO DBGRID

USUARIO.EXCLUIDOS 29/05/2005 16:53:13
#85755
Eu precisava atribuir um datafild para a coluna criada no DBgrid, porem, eu nao posso entrar em: propriedades-colunas-datafild, pois esta coluna é criada após um comando do usuario, enquanto programa esta sendo executado, entao eu precisava saber, tem como atribuir um datafild a coluna por linha de comando?
FABIO.ALEXANDRE 29/05/2005 17:15:51
#85760
TENTA ESSE EXEMPLO
SUBSTITUA OS CAMPOS PARA A SUA TABELA

Dim VAR_CCAMPOS As String

Private Sub Command1_Click()
DBGrid1.Columns.Add (DBGrid1.Columns.Count)
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Caption = "DESCRICAO"
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Visible = True
DBGrid1.Columns(DBGrid1.Columns.Count - 1).DataField = "DESCRICAO"
VAR_CCAMPOS = VAR_CCAMPOS & "," & "DESCRICAO"
Data1.RecordSource = "sELECT " & VAR_CCAMPOS & " FROM T_GRUPOS"
Data1.Refresh
End Sub

Private Sub Form_Load()

VAR_CCAMPOS = "IDGRUPO,DIGITO"
Data1.DatabaseName = "C:\Bares e Restaurantes\DADOS.MDB"
Data1.Connect = ";PWD=245249"
Data1.RecordSource = "sELECT " & VAR_CCAMPOS & " FROM T_GRUPOS"
Data1.Refresh

End Sub

ESPERO TER AJUDADO
USUARIO.EXCLUIDOS 29/05/2005 17:42:58
#85769
Blz valeu, mais uma coisa so, como eu faco p/ deletar uma colubna q eu criei atravez da linha de comando:


DBGrid1.Columns.Add (DBGrid1.Columns.Count)
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Caption ="teste"
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Visible = True

lembrando q eu preciso fazer isso enquanto o programa estiver rodandio.

Brigado
FABIO.ALEXANDRE 29/05/2005 17:48:49
#85771
TENTA ASSIM

Dim VAR_CCAMPOS As String

Private Sub CMDADD_Click()
DBGrid1.Columns.Add (DBGrid1.Columns.Count)
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Caption = "DESCRICAO"
DBGrid1.Columns(DBGrid1.Columns.Count - 1).Visible = True
DBGrid1.Columns(DBGrid1.Columns.Count - 1).DataField = "DESCRICAO"
VAR_CCAMPOS = VAR_CCAMPOS & "," & "DESCRICAO"
Data1.RecordSource = "sELECT " & VAR_CCAMPOS & " FROM T_GRUPOS"
Data1.Refresh
End Sub

Private Sub CMDREMOVER_Click()

For VAR_I = 0 To DBGrid1.Columns.Count
If UCase(DBGrid1.Columns(VAR_I).DataField) = "DESCRICAO" Then
DBGrid1.Columns.Remove (VAR_I)
VAR_CCAMPOS = Replace(VAR_CCAMPOS, ",DESCRICAO", "")
Data1.RecordSource = "sELECT " & VAR_CCAMPOS & " FROM T_GRUPOS"
Data1.Refresh
Exit For
End If
Next
End Sub

Private Sub Form_Load()

VAR_CCAMPOS = "IDGRUPO,DIGITO"
Data1.DatabaseName = "C:\Bares e Restaurantes\DADOS.MDB"
Data1.Connect = ";PWD=245249"
Data1.RecordSource = "sELECT " & VAR_CCAMPOS & " FROM T_GRUPOS"
Data1.Refresh


End Sub


ESPERO TER AJUDADO
USUARIO.EXCLUIDOS 29/05/2005 22:39:52
#85829
Brigadao mesmo, valeu a ajuda
Tópico encerrado , respostas não são mais permitidas
Voltar