'Beispiel:
execute ("update Tabelle set Irgendwas=1 where" & _
  "Irgendwas=0",120,"Connectionstring")
 
 
Public Sub Execute(ByVal Query As String, Optional ByVal Timeout As Integer = _
  60, Optional ByVal ConnectionString As String = "")
 
   Try
      Dim sdc As SqlConnection
      If ConnectionString = "" Then
         sdc = New SqlConnection("Mein connection string zum SQL 2010 Server")
      Else
         sdc = New SqlConnection(ConnectionString)
      End If
      sdc.Open()
 
      Dim SDQ = New SqlCommand(Query, sdc)
      SDQ.CommandTimeout = Timeout
      SDQ.ExecuteNonQuery()
 
      sdc.Close()
   Catch ex As Exception
      Write2Log ex.Message, SQL        
   End Try
   Application.doevents() 
End Sub

Joachim

Beitrag wurde zuletzt am 27.09.12 um 18:36:54 editiert.