DUVIDA...
Ola..
Eu gostaria de saber porque quando se cria um programa com banco de dados que vem com vb6 funciona, e quando eu crio um com o meu proprio banco de dados não funciona.
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.
Eu gostaria de saber porque quando se cria um programa com banco de dados que vem com vb6 funciona, e quando eu crio um com o meu proprio banco de dados não funciona.
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.
O que tem realmente em DataList.BoundText ? Qual é o valor?
me diga também o que tem em ConnectString?
Na ConnectString eu tenho
Microsoft Jet 4.O OLE DB Provider e na aba Connection Banco de Dados Meus Dados.mdb
No Datalist.Boundtext
Eu não entendi a pergunta
Microsoft Jet 4.O OLE DB Provider e na aba Connection Banco de Dados Meus Dados.mdb
No Datalist.Boundtext
Eu não entendi a pergunta
Está errado errado
ConnecString tem que ter
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Locadora\dados.mdb;"
onde locadora é o mdb entende?
agora o que é retornado em DATALIST.BOUDTEXT
tipo é o NOME DA EMPRESA ou CODIGO?
ex se vc colocar
o que vai aparecer?
Entendeu o que quero dizer
ConnecString tem que ter
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Locadora\dados.mdb;"
onde locadora é o mdb entende?
agora o que é retornado em DATALIST.BOUDTEXT
tipo é o NOME DA EMPRESA ou CODIGO?
ex se vc colocar
msgbox Datalist.BoundTexo que vai aparecer?
Entendeu o que quero dizer
Tópico encerrado , respostas não são mais permitidas