Type Grade não definido

[reinaldo polato 1]

esse é o meu código do botão salvar ele está dando erro Type Grade is not defined

 

ai nessa parte

Dim Cadastrar As New Grade

 

está dando erro como eu faço pra definir isso o Cadastrar e a Grade estão dando erro

 

 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Me.txtTamanho.Text = "" Then

MsgBox("Por Favor informe um nome para este Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

txtTamanho.Focus()
Exit Sub
ElseIf TxtCores.Text = "" Then
MsgBox("Por Favor informe o endereco do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtCores.Focus()
Exit Sub
ElseIf TxtValor_da_Venda.Text = "" Then
MsgBox("Por favor informe a cidade do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtValor_da_Venda.Focus()
Exit Sub
ElseIf TxtQuantidade.Text = "" Then
MsgBox("Por Favor informe o Estado do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade.Focus()
Exit Sub
ElseIf TxtQuantidade_Estoque.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_Estoque.Focus()
ElseIf TxtQuantidade_Grade.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_Grade.Focus()
ElseIf TxtQuantidade_para_Cadastro.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_para_Cadastro.Focus()
Exit Sub
Else
Dim Cadastrar As New Grade
Cadastrar.atualizaCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, _
TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastrar.mError = "" Then
MsgBox("Dados atualizados com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
Else
MsgBox("Error ao Atualizar dados do Cliente !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
End If
'Incluir Novo Cliente
Dim Cadatrar As New Grade
Cadastrar.incluirNovoCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastrar.mError = "" Then
MsgBox("Cliente includo com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
Else
MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & Cadastrar.mError, MsgBoxStyle.Information, "Cadastro de Grade!")
Exit Sub
End If
End If







End Sub

[KhaosDoctor 242]

Ele fala que o tipo Grade não existe, você criou essa classe?

[reinaldo polato 1]

meu sistema está assim

 

está dando erro no botão Gravar

 

erro AtualizaCliente is not a member of sistema.grade

mError is not a member of sistema grade

incluirNovoCliente is a not a member of sistema grade

 

Public Class Form3

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("Deseja Sair", MsgBoxStyle.OkCancel)

Me.Close()
End Sub

 

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LimpaCampos()
End Sub

Private Sub LimpaCampos()
With Me
.txtTamanho.Text = ""
.TxtCores.Text = ""
.TxtValor_da_Venda.Text = ""
.TxtQuantidade.Text = ""
.TxtQuantidade_Estoque.Text = ""
.TxtQuantidade_Grade.Text = ""
.TxtQuantidade_para_Cadastro.Text = ""
.txtTamanho.Focus()
End With
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Grade As New Cadastro
Dim opcao As String
If txtTamanho.Text <> "" Then
opcao = MsgBox("Confirma a EXCLUSÃO deste cliente?", MsgBoxStyle.YesNo, "Cadastro de Clientes!")
If opcao = 6 Then

Exit Sub
Else
MsgBox("Cliente excluido com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
LimpaCampos()
Exit Sub
End If
Else
Exit Sub
End If

MsgBox("Selecione o cliente a ser excluido usando a opção <Pesquisar> ", MsgBoxStyle.Information, "Cadastro de Clientes")

End Sub

Private Sub BtnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGravar.Click

If Me.txtTamanho.Text = "" Then
MsgBox("Por Favor informe um nome para este Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
txtTamanho.Focus()
Exit Sub
ElseIf TxtCores.Text = "" Then
MsgBox("Por Favor informe o endereco do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtCores.Focus()
Exit Sub
ElseIf TxtValor_da_Venda.Text = "" Then
MsgBox("Por favor informe a cidade do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtValor_da_Venda.Focus()
Exit Sub
ElseIf TxtQuantidade.Text = "" Then
MsgBox("Por Favor informe o Estado do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade.Focus()
Exit Sub
ElseIf TxtQuantidade_Estoque.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_Estoque.Focus()
ElseIf TxtQuantidade_Grade.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_Grade.Focus()
ElseIf TxtQuantidade_para_Cadastro.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_para_Cadastro.Focus()
Exit Sub
Else

Dim Cadastro = New Grade()
Cadastro.atualizaCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastro.mError = "" Then
MsgBox("Dados atualizados com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
Else
MsgBox("Error ao Atualizar dados do Cliente !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
End If
'Incluir Novo Cliente
Dim Grade = New Cadastro()
Grade.incluirNovoCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
MsgBox("Cliente incluído com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub

MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
End If

 

End Sub
End Class

[KhaosDoctor 242]

Sim você já falou isso, mas eu estou falando que sua classe Grade não existe, por isso que você tem esse erro.

[reinaldo polato 1]

Eu criei uma classe chamada Grade

 

o erro está no Cadastro.atualiza cliente e no if Cadastro .MError e nessa parte Grade.incluirNovoCliente

 

está dando erro também

 

o Codigo Dim Cadastro = new Grade

 

está funcionando

 

 

Cadastro.atualizaCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastro.mError = "" Then
MsgBox("Dados atualizados com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
Else
MsgBox("Error ao Atualizar dados do Cliente !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
End If
'Incluir Novo Cliente
Dim Grade = New Cadastro()
Grade.incluirNovoCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
MsgBox("Cliente incluído com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub

MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & MsgBoxStyle.Information, "Cadastro de Clientes!")

[KhaosDoctor 242]

Este código funciona? Qual deles está dando erro, está muito confuso cara.

[reinaldo polato 1]

o Codigo está com 3 erros

 

o erro está dando no codigo

 

Cadastro.atualizaCliente aqui está dando erro

 

If Cadastro.mError = "" Then essa parte não funciona

 

Grade.incluirNovoCliente essa parte do codigo está dando erro também