• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

tigas_84

Ajuda SFF

3 mensagens neste tópico

ola pessoal eu tenho um problema na ligação ha base de dados.    eu estou a utilizar a versão do visual studio 2008, sera que alguem me pode ajudar e/ou dar umas dicas de como o fazer. 

o projecto é realizar uma aplicação para a loja que dê a entrada dos clientes com o seu respectivo codigo de entrada, essa sera a primeira form com os dados do cliente, depois na segunda form, iremos ter as desricões dos pc's e os problemas que tem aqui teremos tambem um ponto em que se o arranjo for maior do que 50 € entao é favor contactar o cliente a dizer se deseja avançar para o arranjo ou nao, depois um terceiro form com o total do arranjo e se leva upgrade e qual o seu custo se tiver senao, mandar imprimir.

alguma maneira de fazer uma aplicação destas mais facil.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só disseste que tinhas um problema na ligação, mas não disseste qual! Será melhor mostrares o código que tens para tentar ajudar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

preciso alterar as heads da tabela clientes da base de dados mas nao consigo.

___________________________________________________________________

Imports System.Data.SqlClient

Public Class Form1

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

    '    Dim strcon As String = My.Settings.base1ConnectionString.ToString

    '    Dim sqlstr As String

    '    Dim dt As DataTable

    '    Dim ds As DataSet

    '    Dim i As Integer

    '    For i = 0 To DataGridView1.Rows.Add() - 1

    '        sqlstr = "select * from clientes  where clientes.nome=" & TextBox1.Text.Trim.Length

    '        Dim con As New SqlConnection(strcon)

    '        Dim cmd As New SqlCommand(sqlstr, con)

    '        Try

    '            con.Open()

    '            cmd.ExecuteReader()

    '        Catch ex As Exception

    '            MsgBox(ex.Message)

    '        End Try

    '    Next

    'End Sub

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

        'Me.DataGridView1.Columns.Add("col1", "Nº Cliente")

        'Me.DataGridView1.Columns.Add("col2", "Nome")

        'Me.DataGridView1.Columns.Add("col3", "Morada")

        'Me.DataGridView1.Columns.Add("col4", "Código Postal")

        'Me.DataGridView1.Columns.Add("col5", "Localidade")

        'Me.DataGridView1.Columns.Add("col6", "Pessoa a contactar")

        'DataGridView1.Columns(1).Name = "NºCliente"

        'DataGridView1.Columns(2).Name = "Nome"

        'DataGridView1.Columns(3).Name = "Morada"

        'DataGridView1.Columns(4).Name = "Código Postal"

        'DataGridView1.Columns(5).Name = "Localidade"

        'DataGridView1.Columns(6).Name = "Pessoa a contactar "

    End Sub

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

        Dim i As Integer

        alteratabela()

        Dim da As base1DataSetTableAdapters.clientesTableAdapter = New base1DataSetTableAdapters.clientesTableAdapter

        For i = 0 To DataGridView1.Columns.Count - 1

            DataGridView1.DataSource = da.GetDataBynome("%" & TextBox1.Text.Trim & "%")

        Next

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub alteratabela()

        Dim strcon As string =My.Settings.base1ConnectionString.ToString()

        Dim ssql As String

        ssql = "update <clientes> set <NºCliente>=<id_cliente>"

        ssql = "update <clientes> set <Nome>=<nome>"

        ssql = "update <clientes> set <Morada>=<morada>"

        ssql = "update <clientes> set <Código Postal>=<cod_postal>"

        ssql = "update <clientes> set <Localidade>=<localidade>"

        ssql = "update <clientes> set <Pessoa a contactar>=<pessoa_a_contactar>"

        ssql = "ALTER TABLE <nome da tabela> DROP COLUMN <clientes>"

        Dim con As New SqlConnection(strcon)

        Dim cmd As New SqlCommand(ssql, con)

        Try

            con.Open()

            cmd.ExecuteReader()

        Catch ex As Exception

        End Try

    End Sub

End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora