COMBO NO MSFLEXGRID
Galera é o seguinte
Teho um cadastro onde eu uso varios combos para inserir dados
Em um outra tela tenho um FlexGrid onde eu na hora que eu carrego ele mostra o ID(naturalmente)
as como eu faço para mostrar a informação real do Campo
eu faço select da seguinte maneira
select * from tblcadDocumento
Teho um cadastro onde eu uso varios combos para inserir dados
Em um outra tela tenho um FlexGrid onde eu na hora que eu carrego ele mostra o ID(naturalmente)
as como eu faço para mostrar a informação real do Campo
eu faço select da seguinte maneira
select * from tblcadDocumento
ligue o msflexgrid na mesma base de dados do combo.e o data fild com o campo de deseja mostrar.
não esqueça de encerar o topico
não esqueça de encerar o topico
Como assim
Poderia ser mais pratico??
Poderia ser mais pratico??
vc ligou o combo não foi?
no data vc ligou para puxar informaçãoes ligue no msflexgrid.
no data vc ligou para puxar informaçãoes ligue no msflexgrid.
exemplo:
combo: datasorce=data1 datafild=seucampo
msflexgrid: datasorce=data1 datafild=seu campo
e assim por diante.
combo: datasorce=data1 datafild=seucampo
msflexgrid: datasorce=data1 datafild=seu campo
e assim por diante.
Eu ligeui o combo em outro form da seguinte maneira
Dim Rs2 As ADODB.Recordset
Set Rs2 = New ADODB.Recordset
cobDepartamento.Clear
Set Rs2 = DataEnvironment1.Connection1.Execute("select * from [tblDepartamento] order by departamento ASC")
While Rs2.EOF = False
cobDepartamento.AddItem Rs2.Fields("Departamento")
cobDepartamento.ItemData(cobDepartamento.NewIndex) = Rs2.Fields("ID")
Rs2.MoveNext
Wend
Eu só não entendi como eu vou usar isto no Grid
Dim Rs2 As ADODB.Recordset
Set Rs2 = New ADODB.Recordset
cobDepartamento.Clear
Set Rs2 = DataEnvironment1.Connection1.Execute("select * from [tblDepartamento] order by departamento ASC")
While Rs2.EOF = False
cobDepartamento.AddItem Rs2.Fields("Departamento")
cobDepartamento.ItemData(cobDepartamento.NewIndex) = Rs2.Fields("ID")
Rs2.MoveNext
Wend
Eu só não entendi como eu vou usar isto no Grid
faça o mesmo com o msflexgrid.
Valew Cara usei o inner join
Segue exemplo
SELECT dbo.tblCadDocumento.ID,dbo.tblCadDocumento.Documento,dbo.tblAssunto.Assunto,dbo.tblDepartamento.Departamento,dbo.tblSituacao.Situacao, dbo.tblTpArquivo.tpArquivo, dbo.tblLocalArq.LocArquivo, dbo.tblCadDocumento.Data_Legal, dbo.tblCadDocumento.Data_Expiracao,dbo.tblCadDocumento.Data_Cadastro,dbo.tblCadDocumento.Observacao, dbo.tblCadDocumento.Quantidade,dbo.tblCadDocumento.qtdCedida, dbo.tblCadDocumento.qtdDisponivel, dbo.tblCadDocumento.Usuario, dbo.tblCadDocumento.Link FROM dbo.tblCadDocumento INNER JOIN dbo.tblAssunto ON dbo.tblCadDocumento.Assunto = dbo.tblAssunto.ID INNER JOIN dbo.tblTpArquivo ON dbo.tblCadDocumento.tpArquivo = dbo.tblTpArquivo.ID INNER JOIN dbo.tblDepartamento ON dbo.tblCadDocumento.Departamento = dbo.tblDepartamento.ID INNER JOIN dbo.tblSituacao ON dbo.tblCadDocumento.Situacao = dbo.tblSituacao.Id INNER JOIN dbo.tblLocalArq ON dbo.tblCadDocumento.Local_Arquivo = dbo.tblLocalArq.ID
Segue exemplo
SELECT dbo.tblCadDocumento.ID,dbo.tblCadDocumento.Documento,dbo.tblAssunto.Assunto,dbo.tblDepartamento.Departamento,dbo.tblSituacao.Situacao, dbo.tblTpArquivo.tpArquivo, dbo.tblLocalArq.LocArquivo, dbo.tblCadDocumento.Data_Legal, dbo.tblCadDocumento.Data_Expiracao,dbo.tblCadDocumento.Data_Cadastro,dbo.tblCadDocumento.Observacao, dbo.tblCadDocumento.Quantidade,dbo.tblCadDocumento.qtdCedida, dbo.tblCadDocumento.qtdDisponivel, dbo.tblCadDocumento.Usuario, dbo.tblCadDocumento.Link FROM dbo.tblCadDocumento INNER JOIN dbo.tblAssunto ON dbo.tblCadDocumento.Assunto = dbo.tblAssunto.ID INNER JOIN dbo.tblTpArquivo ON dbo.tblCadDocumento.tpArquivo = dbo.tblTpArquivo.ID INNER JOIN dbo.tblDepartamento ON dbo.tblCadDocumento.Departamento = dbo.tblDepartamento.ID INNER JOIN dbo.tblSituacao ON dbo.tblCadDocumento.Situacao = dbo.tblSituacao.Id INNER JOIN dbo.tblLocalArq ON dbo.tblCadDocumento.Local_Arquivo = dbo.tblLocalArq.ID
ok
encere o topico.
encere o topico.
Tópico encerrado , respostas não são mais permitidas