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

martim07

gridView (actualizar,Delete) SqlCommandBuild

2 mensagens neste tópico

Boas,

É o seguinte eu tenho uma gridView que me mostra os campos de uma tabela...Estou a fazer da seguinte forma:

Dim cn As New SqlConnection(ConfigurationManager.ConnectionStrings("clinicasConnectionString").ToString)

        'formatar a data

        Dim DataFiltro As String = Year(Calendar1.SelectedDate).ToString() & "-" & Month(Calendar1.SelectedDate).ToString() & _

        "-" & Day(Calendar1.SelectedDate).ToString()

        myda = New SqlDataAdapter("Select * from Marcacoes where Data = '" & DataFiltro & "' and CodMedico = " & DDL.SelectedValue, cn)

        Dim cmb As New SqlCommandBuilder(myda)

        dsSelDate = New Data.DataSet

        myda.Fill(dsSelDate, "Marcacoes")

        If dsSelDate.Tables(0).Rows.Count = 0 Then

            GridView1.Visible = False

        Else

            GridView1.Visible = True

            GridView1.DataSource = dsSelDate.Tables(0)

            GridView1.DataBind()

        End If

Depois inseri um comando na gridview para poder alterar o registo(update), mas n funciona, porque como viram n tenho nenhum sqldataSource ligado à grid view. ja me deram uma dica para utulizar o SqlCommandBuild, mas n consigo fazer!!!

Se alguem me puder ajudar!!!!

cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

  Dim conn As SqlConnection

        Dim sql As String

        Dim da As SqlDataAdapter

        Dim dr As SqlDataReader

        Dim id As Integer

        'id = DropDownList1.SelectedValue.ToString

        ' id = CInt(DropDownList1.SelectedValue)

        sql = "select Message.Message_ID,Message.Message_Title, Users.User_Name , Message.Message_Send_Date from Message, Users Where Message.User_Sender_ID = Users.User_ID and Message.User_Receiver_ID = " & Session.Item("id") & " order by Message.Message_ID desc"

        conn = New SqlConnection(ConnectionString)

        conn.Open()

        Dim cmd As New SqlCommand(sql, conn)

        dr = cmd.ExecuteReader

        With Me.DataGrid1

            'monta e popula o ListBox

            .DataSource = dr

            .DataBind()

        End With

aki tens um codigo facil

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