Dúvida para se conectar a BD access
26/04/2008
0
Estou tentando fazer uma conexão via código porém esta sendo retornado um erro Declaration expected; Sei que este erro deve ser super simples, mais como sou novo no meio estou apanhando.
Este é o codigo.
Dim queryString As String = ´SELECT * FROM dadosav´
Dim banco As New OleDbCommand(queryString)
banco.Connection = New OleDbConnection(´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=App_Data\passagem.mdb´)
banco.CommandTimeout = 20
A variável que ésta retornando erro é a ´banco´
Gostaria tambem, de saber como farei para cadastrar; e editar as informações desta tabela em questão.
Obrigado a todos...:!: :!:
Galenosf
Posts
26/04/2008
D3v3l0p3r1
Imports System.Data.OleDb Dim banco As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("~/passagem.mdb") & ";" banco.Open()
e depois o command:
Dim queryString As String = "SELECT * FROM dadosav" Dim command1 As New OleDbCommand(queryString, banco)
, etc
27/04/2008
Ricardo Silva
tem que dar um banco.open(); antes de executar o estrução SQL e depois um banco.close();
tenta ai....
28/04/2008
Galenosf
Obrigado a todos![/i][/b]
29/04/2008
D3v3l0p3r1
29/04/2008
Galenosf
Quanto a entender os termos, são termos usados em nosso dia a dia aqui na empresa, NS significa Número de Série e Av significa Avião, ou seja Número de série do Avião.
29/04/2008
D3v3l0p3r1
.
.
.
Imports System.Data.OleDb
.
.
.
[color=red:95679a01a7]Dim banco As New OleDbConnection
banco.ConnectionString = ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=´ & Server.MapPath(´~/passagem.mdb´) & ´;´
banco.Open()[/color:95679a01a7]
Dim command1 As New OleDbCommand
command1.Connection = banco
command1.CommandType = CommandType.Text
[color=orange:95679a01a7]dim strSQL as string
strSQL = ´INSERT INTO tabela1´ & vbNewLine
strSQL = strSQL & ´(´ & vbNewLine
strSQL = strSQL & ´ns_av´ & vbNewLine
strSQL = strSQL & ´)´ & vbNewLine
strSQL = strSQL & ´VALUES´ & vbNewLine
strSQL = strSQL & ´(´ & vbNewLine
strSQL = strSQL & ´´´ & txt_ns_av.Text & ´´´ & vbNewLine
strSQL = strSQL & ´)´[/color:95679a01a7]
command1.CommandText = strSQL
command1.ExecuteNonQuery()
.
.
.
mas é claro q no meio disso aí, eu geraria 2 classes, 1 de conexão, substituindo o q está marcado em vermelho e outra classe com o nome da tabela q está sendo utilizada substituindo o q está marcado em laranja, pois assim além de diminuir a qtd de código, vc poderia reaproveitar ele em vários outros form´s, entende? é a chamada programação orientada a objetos, pois do jeito q está, temos a antiga programação estruturada. mais 1 dica, é sempre melhor colocar esse código dentro da cláusula try-catch-finally, q é a melhor forma de vc capturar erros previstos e imprevistos de sua aplicação, e gerar uma mensagem de erro mais apresentável para o usuário.
Clique aqui para fazer login e interagir na Comunidade :)