ERRO NO CODIGO DE CONEXAO.
No Código que estou fazendo para me conectar ao banco de dados esta dando o seguinte erro.
[Ô]The name ConnectionString is not declared[Ô] Segue abaixo o c'digo que estou tentando fazer.
Public Class frmCliente
Inherits System.Windows.Forms.Form
Dim conn As New SqlClient.SqlConnection
Dim MyCommand As New OleDbCommand
Dim MyAdapter As New SqlClient.SqlDataAdapter
Dim MyData As New DataTable
Dim SQl As String
Private Sub frmCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn = ConnectionString = [Ô]Provider = Microsoft..jet.OLEDB.4.0;DataSource=C:\Users\Samuel\Documents\Visual Studio 2008\SiscomTeste[Ô]
End Sub
End Class
Se quero ter o meu sistema DeskTop traduzido para Web.
Claro!!! melhor ainda!!!
Mas sou novo em programação, se tiver como me ajudar neste campo, agradeço muito.
Imports System.Data
Imports System.Data.SqlClient
Dim conn As New SqlConnection([Ô]Data Source=.\SqlExpress;Initial Catalog=nomeBanco;Persist Security Info=False;User ID=sa;Password=SuaSenha;[Ô])Se for Access faça assim:
Imports System.Data
Imports System.Data.OleDb
Dim conn As New OleDbConnection([Ô]Provider=Microsot.Jet.OLEDB.4.0;Data Source=C:\Users\Samuel\Documents\Visual Studio 2008\SiscomTeste\banco.mdb[Ô])A conexão com o banco de Dados parece que deu certo, mas no código abaixo esta dando o seguinte erro:
vNome = Chr(39) & txtUsuario.Text&Chr(39)
vSenha = Chr(39)& txtSenha.Text&Chr(39)
[Ô]statement expected[Ô]
desde ja agradeço a atenção e a ajuda de vocês.
Mostre o código.
Segue o Código:
Citação:Imports System.Data
Imports System.Data.OleDb
Public Class frmLogin
Public cnSiscom As New OleDbConnection
Private rsLogon As New OleDbRecordSet
Public vNome As String
Dim conn As New OleDbConnection([Ô]Provider=Microsot.Jet.OLEDB.4.0;Data Source=C:\Users\Samuel\Documents\Visual Studio 2008\SiscomTeste blUsuario.mdb[Ô])
Dim vNivel, vSenha As String
Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If txtUsuario.Text = Nothing Then
End If
MsgBox([Ô]Digite o seu nome de Usuario![Ô], vbOKOnly + vbInformation, [Ô]Sistema de Automação Comercial Aviso[Ô])
txtUsuario.Focus()
If txtSenha.Text = Nothing Then
End If
MsgBox([Ô]Digite a sua Senha![Ô], vbOKOnly + vbInformation, [Ô]Sistema de Automação Comercial Aviso[Ô])
txtSenha.Focus()
End Sub
vNome = Chr(39) & txtUsuario.Text&Chr(39)
vSenha = Chr(39)& txtSenha.Text&Chr(39)
rsLogon.Open [Ô]Select * tblUsuario Where tblUsuario=[Ô],&vNome& [Ô]and Senha_sist = [Ô]&vSenha, (Código não Terminado)
End Class
quando você estiver concatenando não deixe grudado a expressão & junto nas variáveis!
Não fazer assim
vNome = Chr(39) & txtUsuario.Tex[txt-color=#e80000]t&C[/txt-color]hr(39)
Fazer assim
vNome = Chr(39) & txtUsuario.Tex[txt-color=#e80000]t[/txt-color] [txt-color=#007100]&[/txt-color] [txt-color=#e80000]C[/txt-color]hr(39)
Repare que o & esta separado do método .Text do TextBox e da expressão Chr(39)
Faça os testes e verifica se dá certo.
Caso não dê certo, poste o erro que esta mostrando
Deu Certo, Muito Obrigado pela ajuda.
Agora me diga o que quer dizer estes Avisos.
Eu consegui mudar a conexão para MySql, que é o banco de dados mais completo que eu tenho.
Foi ai que surgiu estes avisos.
Citação:Variável local não usada: [ô]senha[ô].
Variável local não usada: [ô]vNivel[ô].
Variável local não usada: [ô]vSenha[ô].
Podem ocorrer erros em tempo de execução na conversão de [ô]ADODB.Field[ô] em [ô]String[ô].
Podem ocorrer erros em tempo de execução na conversão de [ô]ADODB.Field[ô] em [ô]String[ô].
Estou tentando de toda a forma resolver este problema de conexão. Agora estou conseguindo fazer a conexão com o banco de dados normal. Só que na hora que coloco usuário e senha na tela de login aparece esta mensagem.
[txt-color=#e80000]Uma exceção first chance do tipo [ô]MySql.Data.MySqlClient.MySqlException[ô] ocorreu em MySql.Data.dll[/txt-color]
Use apenas códigos do vb2010.
O erro onde mostra é vazio demais.
Mostre desde o inÃcio.
Abertura do Banco
Abertura da Tabela
Apresentação dos dados da tabela nas variáveis ou caixa de textos.