kratos92

Estou criando uma gerenciador de venda e necessito referenciar o item prod_id da tabela produtos nas tabelas fornecedor,estoque e vendas. Mas ao referenciar o prod_id na tabela vendas eu não consigo referenciar na tabela estoque. Como eu consigo resolver isto? - Segue o script do bd: Create table produtos ( prod_id int not null identity(1,1) primary key, prod_cod varchar(50), prod_nome varchar(50), prod_tipo varchar(50), prod_fabricante varchar(50), prod_descricao varchar(50), prod_forn varchar(50), prod_qtd varchar(50), prod_val varchar(50) ) alter table estoque add constraint PK_prod_id foreign key(prod_id) references produtos(prod_id) Create Table estoque ( estoque_ID INT not null identity(1,1) primary key, prod_id int, prod_cod varchar(50), prod_nome varchar(50), prod_qtd varchar(50), prod_forn varchar (50), data_pedido varchar(50) , data_estrega varchar(50) ) alter table fornecedor add constraint PK_prod_id foreign key(prod_id) references produtos(prod_id) Create table fornecedor ( forn_id int not null identity(1,1) primary key, prod_id int, prod_forn varchar(50), forn_dtped varchar(50), forn_entrega varchar(50) ) Alter table vendas add constraint PK_cod_cli foreign key(cod_cli) references cliente(cod_cli) Alter table vendas add constraint FK_prod_id foreign key(prod_id) references produtos(prod_id) Create Table vendas ( venda_id INT not null identity(1,1) primary key, cod_cli int, cli_nome varchar(50), cli_cpf varchar(11), venda_data varchar(50), prod_id int, prod_cod varchar(50), prod_nome varchar(50), venda_qtd varchar(50), prod_val varchar(50), vendatotal_val varchar(50) )

Muda alguma coisa se o programa for em VB.NET?(uso o visual studio 2010, com Microsft SQL Server 2008)

Pode apagar este tópico, já descobri como inserir os dados!

Boa Noite, Estou criando um programa de sistema de vendas e ao tentar utilizar código para alterar um cadastro de cliente ou deletar, o programa apresentou erro. Como posso resolver isto? E em relação a deixar bloqueado a alteração dos dados das textbox quando não esta utilizando o botão de update/insert, como eu faço? - Erro ao dar Update na tabela produto: Através do update eu iria alterar um ou mais campos da tabela produto. - Script do Update: 'Estabelecer a conexao Dim cn As New SqlConnection() cn.ConnectionString = _ "Data Source=RICARDOCAFRU-PC\RICARDO;Initial Catalog=Olympus2;Integrated Security=True" 'Definir o comando Dim cmd As New SqlCommand() cmd.Connection = cn 'Definir a instrução SQL Dim instrucaoSQL As String = String.Format( _ "Update produtos set prod_nome = '{0}'," & _ "prod_descricao = '{1}', prod_fabricante = '{2}', prod_tipo = '{3}', prod_val = {4} Where prod_cod = '{5}'", _ Prod_codTextBox.Text, Prod_nomeTextBox.Text, Prod_tipoTextBox.Text, Prod_fabricanteTextBox.Text, _ Prod_descricaoTextBox.Text, Prod_valTextBox.Text) cmd.CommandText = instrucaoSQL cmd.CommandType = CommandType.Text 'Executar Try 'Abrir a conexao cn.Open() 'Executar o comando cmd.ExecuteNonQuery() 'Confirmar a operação MessageBox.Show("Operação concluída com sucesso", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information) 'Fechar a conexão cn.Close() Catch ex As SqlException MessageBox.Show(ex.Message, "Alerta de Erro - " & ex.Number, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try - Error ao deletar um campo da tabela produto: *O botão não deleta os dados do produto, como por exemplo o BindingNavigatorDeleteItem. - Scrip do Delete If MessageBox.Show("Deseja excluir este produto?", "Alerta de Exclusão", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then Exit Sub End If 'Estabelecer a conexão Dim cn As New SqlClient.SqlConnection cn.ConnectionString = "Data Source=RICARDOCAFRU-PC\RICARDO;Initial Catalog=Olympus2;Integrated Security=True" 'Definir o comando Dim cmd As New SqlClient.SqlCommand cmd.Connection = cn 'Definir a instrução SQL Dim instrucaoSQL As String = String.Format("Detele produtos Where prod_id = '{0}'", _ Prod_idTextBox.Text) cmd.CommandText = instrucaoSQL cmd.CommandType = CommandType.Text 'Executar Try 'Abrir a conexão cn.Open() 'Executar o comando cmd.ExecuteNonQuery() 'Limpar a tela LimparTela() 'Confirmar a operação MessageBox.Show("Operação concluída com sucesso", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information) 'Fechar a conexão cn.Close() Catch ex As Exception MessageBox.Show("Erro ao tentar excluir o produto", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

Boa noite, Comecei a criar um form de venda, mas não sei como salvar os dados das text box em uma tabela. Sendo que os text box são quase todos retirador do data source. A tabela vendas esta com Fk da tabela produto e cliente. alguém sabe como posso resolver isto? Segue a imagem do form de vendas: Script do BD: CREATE TABLE cliente ( cod_cli INT, cli_nome VARCHAR(50), cli_sexo CHAR(1), --M - MASCULINO, F = FEMININO cli_idade TINYINT, cli_cpf varchar(60), cli_cidade VARCHAR(50), cli_estado CHAR(2), cli_civil CHAR(1), --C = CASADO, S = SOLTEIRO, D = DIVORCIADO, O = OUTROS cli_email varchar (60), cli_dtcad SMALLDATETIME ) Create Table consertos ( conserto_id INT PRIMARY KEY, cli_id int, cli_nome varchar(50), conserto_problema varchar(50), conserto_dtatual smalldatetime, conserto_dtentrega smalldatetime ) Create Table ConsertoProdutosApple ( consertoprod_id int primary key, consertoprod_nome varchar(50), ) Create table produtos ( prod_id int not null identity primary key, prod_cod varchar(50), prod_nome varchar(50), prod_tipo varchar(50), prod_fabricante varchar(50), prod_descricao varchar(50), prod_val int ) Create Table estoque ( estoque_ID INT NOT NULL IDENTITY PRIMARY KEY, prod_id int, prod_nome varchar(50), produtoest_qtd int, prodest_fornecedor varchar (50), data_pedido SMALLDATETIME , data_estrega SMALLDATETIME ) Create Table vendas ( venda_id INT PRIMARY KEY, cli_id int, cli_nome varchar(50), venda_data smalldatetime, prod_cod varchar(50), prod_nome varchar(50), vendatotal_val int ) - Scrip do Form(o que foi feito até agora): Private Sub vendasForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'Olympus2DataSet1.vendas' table. You can move, or remove it, as needed. Me.VendasTableAdapter.Fill(Me.Olympus2DataSet1.vendas) 'TODO: This line of code loads data into the 'Olympus2DataSet1.cliente' table. You can move, or remove it, as needed. Me.ClienteTableAdapter.Fill(Me.Olympus2DataSet1.cliente) 'TODO: This line of code loads data into the 'Olympus2DataSet1.produtos' table. You can move, or remove it, as needed. Me.ProdutosTableAdapter.Fill(Me.Olympus2DataSet1.produtos) 'TODO: This line of code loads data into the 'Olympus2DataSet.games' table. You can move, or remove it, as needed. End Sub Private Sub qtdNumericUpDown_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qtdNumericUpDown.ValueChanged valorTTextBox.Text = Val(Prod_valTextBox.Text) * Val(qtdNumericUpDown.Text) End Sub Private Sub valoruTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) valorTTextBox.Text = Val(Prod_valTextBox.Text) * Val(qtdNumericUpDown.Text) End Sub End Class Obrigado pela atenção, Esperando a resposta.

o programa esta no começo e roda em qual máquina(precisa apenas mudar o Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|),sendo que uma das utilidades do sql nele seria para consulta, como no código abaixo : Private Sub consultacliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'Pet_shopDataSet.cliente' table. You can move, or remove it, as needed. Me.ClienteTableAdapter.Fill(Me.Olympus2DataSet.cliente) End Sub Private Sub consultacadastroclienteTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles consultacadastroclienteTextBox.TextChanged consultacadastroDataGridView.ClearSelection() Dim texto As String = Nothing If consultacadastroclienteTextBox.Text <> String.Empty Then For Each linha As DataGridViewRow In consultacadastroDataGridView.Rows For Each celula As DataGridViewCell In consultacadastroDataGridView.Rows(linha.Index).Cells If celula.ColumnIndex = 1 Then If celula.Value IsNot Nothing Then texto = celula.Value.ToString().ToLower() Else texto = "" End If If texto.Contains(consultacadastroclienteTextBox.Text.ToLower) Then Me.consultacadastroDataGridView.Rows(celula.RowIndex).Selected = True Me.consultacadastroDataGridView.CurrentCell = celula Exit Sub End If End If Next Next End If End Sub End Class E será feito um login via vb com service-based database.

Bom dia fulvio, Entrei no Sql Server Configuration Manager -> Sql Server Service, sendo que tudo estava definido como Parado. Já na parte de Protocols estava tudo desativado. Na foto a cima foi possível ativar somente: - Sql Server Integration Services 10.0 - Sql Server Analysis Services (MSSQLSERVERCAF) - Sql Server (RICARDO) - Sql Server Reporting Services (MSSQLSERVERCAF) - Sql Server Browser ------------------------------------------------------------------------------------------------------------------------------------------------------- Sobre a pergunta de eu estar utilizando o SQL client, eu acredito que não uso. Pois utilizo apenas o Sql Management Studio(Microsoft Sql Server 2008) Eu utilizo o sql na minha casa mesmo e após ativar algumas partes no Sql configuration manager o problema não foi solucionado ao tentar criar no vb um arquivo tipo data(.mdf)

Vou verificar as configurações e já mando uma resposta, mas a aplicação não é Web e sim apenas um gerenciador de loja de video games(cadastro,consulta,relatório,venda), com banco em SQL

Estou criando um programa e ao adicionar qualquer bancos de dados(SQL) no vb 2010 aparece essa menssagem da imagem a baixo. Como posso resolver?(reinstalando os dois ou .....)

Testei a sua dica e deu tudo certo, valeu mesmo!

Estou fanzendo um banco de dados para o meu programa de TCC e ocorreu alguns erros em algumas alter table. Alguém poderia me dar uma ajuda? Script: Create Database teste1 go Use teste1 CREATE TABLE cliente ( cod_cli INT, cli_nome VARCHAR(50), cli_sexo CHAR(1), --M - MASCULINO, F = FEMININO cli_idade TINYINT, cli_cidade VARCHAR(50), cli_estado CHAR(2), cli_civil CHAR(1), --C = CASADO, S = SOLTEIRO, D = DIVORCIADO, O = OUTROS cli_email varchar (60), cli_dtcad SMALLDATETIME ) Create Table funcionario ( funcionario_id INT NOT NULL IDENTITY PRIMARY KEY, funcionario_nome varchar (60), funcionario_cpf varchar (60), funcionario_rg varchar (60), funcionario_cidade varchar (60), funcionario_estado char (2), funcionario_tel varchar (60), funcionario_email varchar (60) ) Create Table fornecedor ( fornecedor_id INT NOT NULL IDENTITY PRIMARY KEY, fornecedor_nome varchar (60), fornecedor_cnpj varchar (60), fornecedor_cidade varchar (60), fornecedor_estado char (2), fornecedor_end varchar (60), fornecedor_tel varchar (60), fornecedor_email varchar (60) ) Create Table consertos ( conserto_id INT NOT NULL IDENTITY PRIMARY KEY, produtoapple_id INT, produtoapple_nome varchar(60), produtoapple_descrição varchar(60), produtoapple_HD varchar(60) , produtoapple_RAM varchar(60) , produtoapple_processador varchar(60), prazo_dtped varchar(60), prazo_dtentrega varchar(60) ) Create Table games ( game_id INT NOT NULL IDENTITY PRIMARY KEY, game_nome varchar (60), game_genero varchar (60), game_fabricante varchar (60), game_console varchar (60), game_valor varchar (60) ) Create Table consoles ( console_id INT NOT NULL IDENTITY PRIMARY KEY, console_nome varchar (60), console_descricao varchar(60), console_fabricante varchar (60), console_valor varchar (60) ) Create Table produtos_apple ( produtoapple_id INT NOT NULL IDENTITY PRIMARY KEY, produtoapple_nome varchar (60), produtoapple_descrição varchar(60), produtoapple_HD varchar(20), produtoapple_RAM varchar(20), produtoapple_processador varchar(30), produtoapple_valor int ) Create Table estoque ( estoque_ID INT NOT NULL IDENTITY PRIMARY KEY, produtoest_nome varchar (60), produtoest_qtd int, prodest_fornecedor varchar (60), produtoest_status varchar(60), data_pedido SMALLDATETIME , data_estrega SMALLDATETIME ) Create Table vendas ( venda_id INT NOT NULL IDENTITY PRIMARY KEY, produtoapple_id int, console_id int, game_id int, funcionario_id INT, estoque_id INT, fornecedor_id INT, venda_descrição varchar (60), venda_data varchar (60) ) alter table Vendas add constraint fk_ProdutoApple_id foreign key (Produtoapple_id) references Produtos_Apple (Produtoapple_id) alter table Vendas add constraint fk_Console_id foreign key (Console_id) references Consoles(Console_id) alter table Vendas add constraint fk_Game_id foreign key (Game_id) references Games (Game_id) alter table Vendas add constraint fk_funcionario_id foreign key (funcionario_id) references funcionario (funcionario_id) alter table Vendas add constraint fk_estoque_id foreign key (estoque_id) references estoque (estoque_id) alter table Vendas add constraint fk_fornecedor_id foreign key (fornecedor_id) references fornecedor (fornecedor_id) alter table Consertos add constraint fk_ProdutoApple_id foreign key (Produtoapple_id) references Produtos_Apple (Produtoapple_id)