1
Conversa Geral / ALGUEM QUE PERCEBA DE VB PARA ME AJUDAR!
« em: 09/Abr/2013 18:07 »
Boas pessoal, gostava de saber qual e o motivo pelo qual nao consigo realizar o comando de update para a base de dados ! já criei a ligação da datagridview para a form mas mesmo assim continua sem dar para fazer o update!
CODIGO;
CODIGO;
Código: [Seleccione]
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class EDITCLIENTES
Private dataGridView1 As New DataGridView()
Private bindingSource1 As New BindingSource()
Private dataAdapter As New SqlDataAdapter()
Private Sub GetData(ByVal selectCommand As String)
Try
Dim connectionString As String = "Password=irpasimpo;Persist Security Info=True;User ID=SA;Initial Catalog=OEI;Data Source=CARLOS-M\SQL"
Me.dataAdapter = New SqlDataAdapter(selectCommand, connectionString)
Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapter)
Dim table As New DataTable()
table.Locale = System.Globalization.CultureInfo.InvariantCulture
Me.dataAdapter.Fill(table)
Catch ex As SqlException
MessageBox.Show("To run this example, replace the value of the " + _
"connectionString variable with a connection string that is " + _
"valid for your system.")
End Try
End Sub
<STAThreadAttribute()> _
Public Shared Sub Main()
Application.Run(New EDITCLIENTES())
End Sub
Private Sub EDITCLIENTES_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
Me.dataGridView1.DataSource = Me.bindingSource1
GetData("select * Clientes")
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
End Sub
Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click
'If dataGridView1.SelectedRows.Count > 0 Then
' Dim selectedIndex As Integer = dataGridView1.SelectedRows(0).Index
' Dim rowID As Integer = Integer.Parse(dataGridView1(0, selectedIndex).Value.ToString())
' Try
' Dim connectionString As String = "Password=irpasimpo;Persist Security Info=True;User ID=SA;Initial Catalog=OEI;Data Source=CARLOS-M\SQL"
' Dim connection As New SqlConnection(connectionString)
' connection.Open()
' Dim MySQL As String = "UPDATE FROM Clientes (Nome, Morada,Nacionalidade,Email,Descrição) values (@Nome, @Morada,@Nacionalidade,@Email,@Descrição)"
' Dim Cmd As New SqlCommand(MySQL, connection)
' Cmd.Parameters.AddWithValue("@Nome", txtNome.Text)
' 'Cmd.Parameters.Add(New SqlParameter("@Morada", txtMorada.Text))
' 'Cmd.Parameters.Add(New SqlParameter("@Nacionalidade", txtNacionalidade.Text))
' 'Cmd.Parameters.Add(New SqlParameter("@Email", txtEmail.Text))
' 'Cmd.Parameters.Add(New SqlParameter("@Descrição", txtDescricao.Text))
' Dim rows As Integer = Cmd.ExecuteNonQuery()
' Cmd.ExecuteNonQuery()
' connection.Close()
' Catch ex As SqlException
' End Try
'End If
Dim connectionString As String = "Password=irpasimpo;Persist Security Info=True;User ID=SA;Initial Catalog=OEI;Data Source=CARLOS-M\SQL"
Dim connection As New SqlConnection(connectionString)
If dataGridView1.SelectedRows.Count > 0 Then
Dim intCLIENTESID As Integer = dataGridView1.SelectedRows(0).Cells("ID_CLIENTE").Value
Dim selectedIndex As Integer = dataGridView1.SelectedRows(0).Index
Dim rowID As Integer = Integer.Parse(dataGridView1(0, selectedIndex).Value.ToString())
If Not connection.State = ConnectionState.Open Then
connection.Open()
End If
Dim da As New SqlClient.SqlCommand("SELECT * FROM Clientes " & _
" WHERE ID_CLIENTE=" & intCLIENTESID, connection)
Dim dt As New DataTable
txtNome.Text = dt.Rows(0).Item("@Nome")
txtMorada.Text = dt.Rows(0).Item("@Morada")
txtNacionalidade.Text = dt.Rows(0).Item("@Nacionalidade")
da.ExecuteNonQuery()
connection.Close()
End If
End Sub
