[LØST] SQL script fail

[Actibus]

Prøver å kjøre dette scriptet, det virker fint via tenScripting i VS, men failer i HS med denne feilmld i loggen

SIkkert en helt basic ting

 

Imports System.Data.SqlClient
Imports System.Data
Imports HomeSeerAPI
Imports System.Convert
    Public Sub Main(ByVal Parms As Object)
      
        Dim devValue As String = hs.DeviceVSP_GetStatus(Parms, hs.DeviceValueEx(Parms), ePairStatusControl.Status)
        Dim devName As String = Nothing
        Dim dev As Scheduler.Classes.DeviceClass
        dev = hs.GetDeviceByRef(Parms)
        devName = dev.Name(hs)
        Dim devTime As DateTime
        devTime = DateTime.Now

     
        hs.WriteLog("SampleScript", devValue)
      

        Dim myconnect As New SqlClient.SqlConnection
        myconnect.ConnectionString = "Data Source=tcp:server,49172;Initial Catalog=HomeSeer;Persist Security Info=True;User ID=HS;Password=xxx"


        Dim mycommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
        mycommand.Connection = myconnect
        mycommand.CommandText = "INSERT INTO dbo.devLog (devRef, devName, devValue, devTime) VALUES (@Parms, @devName, @devValue, @devTime)"
        myconnect.Open()

        Try
            mycommand.Parameters.Add("@Parms", SqlDbType.Int).Value = Parms
            mycommand.Parameters.Add("@devName", SqlDbType.NVarChar).Value = devName
            mycommand.Parameters.Add("@devValue", SqlDbType.VarChar).Value = devValue.Remove(devValue.Length - 3)
            mycommand.Parameters.Add("@devTime", SqlDbType.VarChar).Value = devTime
            mycommand.ExecuteNonQuery()
            
        Catch ex As System.Data.SqlClient.SqlException
            
        End Try
        myconnect.Close()
        

    End Sub
 

Endret 11. mai 2018 av Actibus

[Actibus]

Fant ut av det, måtte spesifisere System.Data.SqlClient istedetfor bare Sql.Client.xx gjennom hele scriptet