DUVIDA
Ola...
Eu gostaria de saber,
Eu fiz um programinha baseado no banco de dados que ja vem no vb6 Nwind, e funcionou corretamente. Mas quando eu griei com o meu banco de dados ele não funcionou.
Eu gostaria de saber o porque.
Eu gostaria de saber,
Eu fiz um programinha baseado no banco de dados que ja vem no vb6 Nwind, e funcionou corretamente. Mas quando eu griei com o meu banco de dados ele não funcionou.
Eu gostaria de saber o porque.
Rene, passe os erros que está dando e se possÃvel o seu código. Assim fica mais fácil entender o pq não sestá dando certo.
ai amigo, vou lhe dar uma dica, visto que você parece ser novo por aqui
1 - Seja claro/simples e direto na sua pergunta
2 - Coloque ao menos um pouco do Código que usou
3 - Mostre o Erro, e entre em detalhes do tipo de conexão usada e etc
Poste novamente estamos aguardando!!
1 - Seja claro/simples e direto na sua pergunta
2 - Coloque ao menos um pouco do Código que usou
3 - Mostre o Erro, e entre em detalhes do tipo de conexão usada e etc
Poste novamente estamos aguardando!!
No formulário eu estou usando uma DataGrid - DataList, dois controles Ado Data Control, dois Labels e um botão de comando.
As tabelas que estou usando é Fornecedores e Produtos com relacionamento de um para varios.
Adodc1/Adodc2 = ConnectString, MicrosoftJet 4.O OLE DB Provider e na aba Connection Banco de Dados NWind.mdb
Adodc1 = RecordSource = Select * From Fornecedores
Adodc2 = RecordSource = Select * From Produtos
DataList = RowSource = Adodc1
ListField = NomeDaEmpresa
BoundColumn = Código
DataGrid = DataSource = Adodc2
Código Do Data List
Private Sub DataList_Click()
Dim strconsulta As String
strconsulta = "Select * From Produtos Where Fornecedores = " & DataList.BoundText
With Adodc2
.RecordSource = strconsulta
. Refresh
End With
With DataGrid1
.ClearFields
.ReBind
End With
Label1.Caption = "Relação de Produtos : " & DataList1.Text
End sub
Ao clicar num item do DataList1 ele da Erro Metodo Value e em seguida acusa que Adodc2 não pode ser executado.
As tabelas que estou usando é Fornecedores e Produtos com relacionamento de um para varios.
Adodc1/Adodc2 = ConnectString, MicrosoftJet 4.O OLE DB Provider e na aba Connection Banco de Dados NWind.mdb
Adodc1 = RecordSource = Select * From Fornecedores
Adodc2 = RecordSource = Select * From Produtos
DataList = RowSource = Adodc1
ListField = NomeDaEmpresa
BoundColumn = Código
DataGrid = DataSource = Adodc2
Código Do Data List
Private Sub DataList_Click()
Dim strconsulta As String
strconsulta = "Select * From Produtos Where Fornecedores = " & DataList.BoundText
With Adodc2
.RecordSource = strconsulta
. Refresh
End With
With DataGrid1
.ClearFields
.ReBind
End With
Label1.Caption = "Relação de Produtos : " & DataList1.Text
End sub
Ao clicar num item do DataList1 ele da Erro Metodo Value e em seguida acusa que Adodc2 não pode ser executado.
Tópico encerrado , respostas não são mais permitidas