ERRO DE SQL EXCEPTION

FILMAN 31/07/2014 12:17:25
#440073
Tente isso,
Importe a classe em anexo para o Projeto e crie um FORM com esses 4 botões!
No botão 4 você precisa de um TextBox para realizar o teste!

Caso o seu projeto esteja em camadas importe a classe para o form que criar para que possa fazer os testes!



Botão 1 (Cadastrar)

Dim _sSQL As String = [Ô][Ô]
Dim iRetorno As Integer
Dim objSQLServer As New clsSQLServer

_sSQL &= [Ô]INSERT INTO CLIENTES ([Ô]
_sSQL &= [Ô]NOME,[Ô]
_sSQL &= [Ô]CPF,[Ô]
_sSQL &= [Ô]ESTADO[Ô]
_sSQL &= [Ô]) VALUES ([Ô]
_sSQL &= [Ô][ô]TESTE TESTE TESTE[ô],[Ô]
_sSQL &= [Ô][ô]123.456.789-00[ô],[Ô]
_sSQL &= [Ô][ô]SP[ô][Ô]
_sSQL &= [Ô])[Ô]

objSQLServer.querySql = _sSQL
objSQLServer.operacaoSql = clsSqlServer.acaoSQL.Insert
iRetorno = CType(objSQLServer.executaSql(), Integer)

If iRetorno = 1 Then
	MessageBox.Show([Ô]Cadastrou[Ô])
End if



Botão 2 (Atualizar)

Dim _sSQL As String = [Ô][Ô]
Dim iRetorno As Integer
Dim objSQLServer As New clsSQLServer

_sSQL &= [Ô]UPDATE CLIENTES SET[Ô]
_sSQL &= [Ô]   NOME = [ô]TESTE TESTE TESTE[ô],[Ô]
_sSQL &= [Ô]   CPF = [ô]123.456.789-00[ô],[Ô]
_sSQL &= [Ô]   ESTADO = [ô]SP[ô][Ô]
_sSQL &= [Ô]   WHERE CODIGO = 12345[Ô] [ô]Código do cadastro

objSQLServer.querySql = _sSQL
objSQLServer.operacaoSql = clsSqlServer.acaoSQL.Update
iRetorno = CType(objSQLServer.executaSql(), Integer)

If iRetorno = 1 Then
	MessageBox.Show([Ô]Alterou[Ô])
End if



Botão 3 (Excluir)

Dim _sSQL As String = [Ô][Ô]
Dim iRetorno As Integer
Dim objSQLServer As New clsSQLServer

_sSQL &= [Ô]DELETE FROM CLIENTES[Ô]
_sSQL &= [Ô]   WHERE CODIGO = 12345[Ô] [ô]Código do cadastro

objSQLServer.querySql = _sSQL
objSQLServer.operacaoSql = clsSqlServer.acaoSQL.Delete
iRetorno = CType(objSQLServer.executaSql(), Integer)

If iRetorno = 1 Then
	MessageBox.Show([Ô]Excluiu[Ô])
End if



Botão 4 (Consulta SELECT)

Dim _sSQL As String = [Ô][Ô]
Dim dtRetorno As DataTable
Dim objSQLServer As New clsSQLServer

_sSQL &= [Ô]SELECT NOME[Ô]
_sSQL &= [Ô]   FROM CLIENTES[Ô]
_sSQL &= [Ô]   WHERE CODIGO = 12345[Ô] [ô]Código do cadastro ou sem o WHERE
_sSQL &= [Ô]   ORDER BY NOME ASC[Ô]

objSQLServer.querySql = _sSQL
objSQLServer.operacaoSql = clsSqlServer.acaoSQL.selectDataTable
iRetorno = CType(objSQLServer.executaSql(), DataTable)
		
If dtRetorno.Rows.Count > 0 Then
	MessageBox.Show([Ô]Encontrou Informações[Ô])
	[ô]O retorno pode ser jogado dentro de um DataGrid, ListView é só tratar como abaixo
	
	[ô]Esse é uma das maneiras
	[ô]Preenchendo um TextBox MultiLine
	
	Dim sRetorno As String = [Ô][Ô]
	For i As Long = 0 To dtRetorno.Rows.Count - 1
		sRetorno &= dtRetorno.Rows(i)([Ô]NOME[Ô]).ToString()
	Next
	TextBox1.Text = sRetorno
End if
Página 2 de 2 [11 registro(s)]
Faça seu login para responder
Voltar