DUVIDA DE ERRO ADO...
gALERA,
Estou tendo um probleminha com a interligação do Banco de Dados abaixo com o VB6 e Access 2003.
Quando estou usando o código no botão incluir "rs.AddNew", consta o erro abaixo:
Erro em tempo de execução 3251
O conjunto de registros atual não oferece suporte para atualização.
Isso pode ser uma limitação do provedor ou do tipo de bloqueio selecionado.
Detalhes da conexão:
Dim conexao as New Connection 'Variável do Tipo Conexão
Dim rs as New RecordSet 'Variável do Tipo Tabela
- Abrir o Banco de Dados e a Tabela
No Form Load:
conexao.provider = "Microsoft.Jet.OLEDB.4.0" 'especifica o tipo de banco de dados
conexao.open "C:\Banco.mdb 'abre o banco de dados
rs.open "usuarios", conexao, 3 'abre a tabela
Vc saberia me dizer o que ocorre,...?
Valeu
Estou tendo um probleminha com a interligação do Banco de Dados abaixo com o VB6 e Access 2003.
Quando estou usando o código no botão incluir "rs.AddNew", consta o erro abaixo:
Erro em tempo de execução 3251
O conjunto de registros atual não oferece suporte para atualização.
Isso pode ser uma limitação do provedor ou do tipo de bloqueio selecionado.
Detalhes da conexão:
Dim conexao as New Connection 'Variável do Tipo Conexão
Dim rs as New RecordSet 'Variável do Tipo Tabela
- Abrir o Banco de Dados e a Tabela
No Form Load:
conexao.provider = "Microsoft.Jet.OLEDB.4.0" 'especifica o tipo de banco de dados
conexao.open "C:\Banco.mdb 'abre o banco de dados
rs.open "usuarios", conexao, 3 'abre a tabela
Vc saberia me dizer o que ocorre,...?
Valeu
tente assim:
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "\NomeDoBanco.MDB"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM NomeDaTabela, cnn, adOpenDynamic, adLockOptimistic
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "\NomeDoBanco.MDB"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM NomeDaTabela, cnn, adOpenDynamic, adLockOptimistic
Tópico encerrado , respostas não são mais permitidas