UTILIZAR QUERY MSQL COM VB.NET

ACDONA 05/12/2010 17:17:01
#358844
Para executar uma query no sql 2005, eu clico em cima do bando de dados, escolho new query e digito:

update account.dbo.cabal_newchardata_table set PNT=1000

Como eu faço para executar esse comando colocando em um botão?

Assim, pressiono o botão ele me abre o banco de dados e faz o query pra mim.

Obrigado
TECLA 05/12/2010 18:58:31
#358848 Resposta escolhida
Veja um exemplo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs) Handles Button1.Click
myConnection = New SqlConnection([Ô]server=localhost;uid=sa;pwd=;database=pubs[Ô]) 
myConnection.Open()
myCommand = New SqlCommand([Ô]Insert into Jobs values 12,[ô]IT Manager[ô],100,300,myConnection)
ra=myCommand.ExecuteNonQuery()
myConnection.Close()
End Sub
ACDONA 06/12/2010 17:25:54
#358928
Oi Tecla, olha eu fiz assim:

Imports System.Data.SqlClient

Public Class Form1
Private myconnection As SqlConnection
Private myCommand As SqlCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

myconnection = New SqlConnection([Ô]server=localhost;uid=sa;pwd=1234;[Ô]) [ô] tirei o database=

Try
myconnection.Open()
MsgBox([Ô]conexão aberta[Ô])
Catch ex As Exception
MsgBox([Ô]Erro ao conectar o servidor ![Ô] & vbCrLf & vbCrLf & [Ô]Conexão utilizada:[Ô] & vbCrLf & myconnection.ConnectionString & vbCrLf & vbCrLf & vbCrLf & [Ô]Erro: [Ô] & ex.Message.ToString, MsgBoxStyle.Critical)
Exit Sub
End Try

myCommand = New SqlCommand([Ô]update account.dbo.cabal_newchardata_table set PNT=1000[Ô],myConnection)
myCommand.ExecuteNonQuery()
myconnection.Close()
MsgBox([Ô]conexão fechada[Ô])

End Sub
End Class
Tópico encerrado , respostas não são mais permitidas
Voltar