Luiz Niero

Estou com um problema, não sei se é o comando sql ou a sintaxe da conexao. o meu banco de dados, chamado bdalmoxarifado está na pasta do projeto, segue abaixo a minha sintaxe Private Sub Inserir() Dim Str_Con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Luiz Niero\Desktop\HOSPITAL BEZERRA\desenvolvimento\Agenda Almoxarifado\almoxarifado\almoxarifado\bdalmoxarifado.accdb;Persist Security Info=False;" Dim con As New OleDb.OleDbConnection(Str_Con) ''As duas linhas supra citadas fazem a conexao com o banco de dados Dim Sql_Inserir As String = "INSERT INTO tbfornecedor(Razao,nomefantasia,cnpj,ie,nomerepresentante,Telefone1,Telefone2,Fax,Email,Cidade,UF)" & "VALUES('" & txtrazao.Text & "','" & txtnomefantasia.Text & "','" & txtcnpj.Text & "' ,'" & txtinscricaoestadual.Text & "','" & txtrepresentante.Text & "','" & txttelefone1.Text & "','" & txttelefone2.Text & "','" & txtfax.Text & "','" & txtemail.Text & "','" & txtcidade.Text & "','" & txtuf.Text & "')" Dim cmdinserir As New OleDb.OleDbCommand(Sql_Inserir, con) Try con.Open() 'abro a conexão' cmdinserir.ExecuteNonQuery() 'mando executar o comando sql e pergunto se houve alguma alteração' MessageBox.Show("Dados salvo com sucesso !", "Informação.", MessageBoxButtons.OK, MessageBoxIcon.Information) Catch MessageBox.Show("Não foi possível efetuar o cadastro.", "Atenção !", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally cmdinserir.Dispose() 'encerro o comando sql' con.Close() 'fecho a conexão, para evitar perdas' End Try End Sub

Boa tarde pessoal. Estou com um problema, toda vez que eu tento incluir um registro no banco de dados, ele me dá a mensgem programada no catch, e o vb da o seguinte aviso no debug " A first chance exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll" Alguém sbe o por que disso? Abaixo o código do meu try catch Try Conn.Open() Cmd.ExecuteNonQuery() MessageBox.Show("Dados Salvos com Sucesso!", "Informação", MessageBoxButtons.OK, MessageBoxIcon.Information) Catch MessageBox.Show("Não foi possivel fazer a inclusão!", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally Cmd.Dispose() Conn.Close() End Try

Brigado cara, era isso que eu queria

Bem, eu vi lá a string para a conexão, mas eu não sei onde eu devo colocar o caminho do banco. Tem como me ajudar? Como um exemplo das variaveis para a conexão. Tipo, declara, põe a string lá mais o caminho essas coisa eu não sei. Tem como faze uma conexão e coloca o código aí para eu ver? Se possível com banco de dados do acces

Boa tarde. Estou há algum tempo sem programar e não estou conseguindo conectar o meu novo projeto ao banco de dados que eu criei. alguém poderia me ajudar. uso Vb 2010 e banco de dados tanto faz, pode ser acess ou o sql do vb mesmo. Eu conheço algumas stirngs e comandos sql, mas não consigo estabelecer a conexão entre o programa e o banco de dados, obrigado

Oi, há algum tempo que eu não programo, e estou com algumas dúvidas. De como acessar o banco de dados, como executar os comandos sql nele...essas coisas. Abaixo os códigos que eu tentei para inserir no banco de dados, mas não da certo. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalvar.Click Dim Sql As String Sql = "a" Dim conn As New System.Data.SqlClient.SqlConnection Dim cmd As New System.Data.SqlClient.SqlCommand(Sql, conn) Sql = "INSERT INTO tabela VALUES( " & txtid.Text Try conn.Open() cmd.ExecuteNonQuery() MsgBox("cadastro salvo", MsgBoxStyle.Information, Me.Text) Catch ex As Exception MsgBox("Não foi possível efetuar o cadastrto", MsgBoxStyle.Information, Me.Text) End Try End Sub