Sql dato fejl.

"...char data type to smalldatetime data type..." - dvs at du har et eller andet sted en string og ej en dato - kig på hvad der sker der (og luk dine gamle spørgsmål i øvrigt - det gør man ved at vælge den/de personer som skal ga points i listen til venstre)

Okay kan bare ikke rigtig se fejlen for i min property lag har jeg lavet. dato as date.

Men se lige min sql :)

strSQL &= "Values ('" & pro.Titel & "', '" & pro.Text & "', '" & pro.Add & "', '" & pro.Dato & "')"

er den ikke osse rigtig nok?

næh, fordi du kun skal angive strings med '' - hvad med

strSQL &= "Values ('" & pro.Titel & "', '" & pro.Text & "', '" & pro.Add & "', " & pro.Dato & ")" ?

Desuden, det er en fordel at bruge parametre, så slipper man for at bakse med den slags, og er beskyttet mod SQl injection.

strSQL = "Values ( @title ,@text, @Dato)"

og
command.Parameters.Add(new OleDbParameter("@title", pro.Titel));
command.Parameters.Add(new OleDbParameter("@text", pro.text));
command.Parameters.Add(new OleDbParameter("@dato", pro.dato));

hvis du bruger access, f.eks.

oops - og her har du nemlig en konvertering fra string til dato ...
...& pro.Dato &  ... som egentligt burde være pro.Dato.toString

og den slags slipper man for når man bruger parametre

Det virker stadig ikke med to.string :(
Forstår det simpelt hen ikke.

btw. Jeg anvender en MSSQL 2000 server. Har du andre forslag til hvad fejlen kan skyldes?

Ja det gik op for mig lige nu, siden du har en smalldatetime 8som jo ikke findes i access)

Tjah - datetime/smalldatetime er ret sære/følsomme ( i forhold til access) .. jeg ville seriøst foreslå at du bypasser konverteringsproblemet ved at bruge parametre, f.eks.
mycommand.Parameters.Add(New SqlParameter("@dato", SqlDbType.SmallDateTime)).Value = pro.dato

Hvor skal det sættes ind henne, kan du ikke lige skrive det :)?

Lidt forviret...

Lige som her

strSQL = "Values ( @title ,@text, @Dato)"

og
command.Parameters.Add(new OleDbParameter("@title", pro.Titel));
command.Parameters.Add(new OleDbParameter("@text", pro.text)); osv

bare sql -tingene i stedet for oledb

og under forudsætning af at din sqlcommand instance hedder command - ellers må du lige tilpasse det

Sådan her ser den ud:


    Public Sub AddNews(ByVal pro As NewsPro)

        Dim strSQL As String

        strSQL = "Insert into tblNews(fldTitel, fldText, fldAdd, fldDato)"
        strSQL &= "Values ('" & pro.Titel & "', '" & pro.Text & "', '" & pro.Add & "', '" & pro.Dato & "')"
        Dim objData As New DataAccess
        objData.ModifyDataSql("(local)", "username", "password", strSQL, "database")

    End Sub

mycommand.Parameters.Add(New SqlParameter("@title", SqlDbType.VarChar)).Value = pro.Titel

mycommand.Parameters.Add(New SqlParameter("@text", SqlDbType.VarChar)).Value = pro.text

mycommand.Parameters.Add(New SqlParameter("@dato", SqlDbType.SmallDateTime)).Value = pro.dato

hvad så med den der mycommand er det strSQL?

Nu får jeg fejlen: Must declare the variable '@Titel'.

Script:

Public Sub AddNews(ByVal pro As NewsPro)

        Dim strSQL As String

        Dim mycommand As New SqlClient.SqlCommand
        mycommand.Parameters.Add(New SqlClient.SqlParameter("@Titel", SqlDbType.VarChar)).Value = pro.Titel
        mycommand.Parameters.Add(New SqlClient.SqlParameter("@Text", SqlDbType.VarChar)).Value = pro.Text
        mycommand.Parameters.Add(New SqlClient.SqlParameter("@Add", SqlDbType.VarChar)).Value = pro.Add
        mycommand.Parameters.Add(New SqlClient.SqlParameter("@dato", SqlDbType.SmallDateTime)).Value = pro.Dato

        strSQL = "Insert into tblNews(fldTitel, fldText, fldAdd, fldDato)"
        strSQL &= "Values (@Titel ,@Text, @Add, @Dato)"
        'strSQL &= "Values ('" & pro.Titel & "', '" & pro.Text & "', '" & pro.Add & "', '" & pro.Dato & "')"

        Dim objData As New DataAccess
        objData.ModifyDataSql("(local)", "Jens", "abcdefg", strSQL, "3boxCMS")

    End Sub

Ja det går galt, fordi du sender kun SQL-sætningen afsted, tilsyneladende, og der hvor den bliver anvendt kender systemet intet til parametrene. Jeg ved ikke hvordan du har lavet din kode, men f.eks.

        objData.ModifyDataSql("(local)", "Jens", "abcdefg", strSQL, "3boxCMS")
kunne i stedet for anvende

        objData.ModifyDataSql("(local)", "Jens", "abcdefg", myCommand, "3boxCMS")


Et eksempel for et SQL kald med parametre: 
      Dim ID As Integer = 12
      Dim Name As String = "O'Neil"
      Dim TranDate As Date = Now.Date
      Dim cm As New SqlCommand("", YourConnection)

      cm.CommandText = "DELETE FROM YourTable WHERE ID=@ID and Name=@Name and TranDate=@TranDate"

        cm.Parameters.Add("@ID", SqlDbType.Int).Value = ID
        cm.Parameters.Add("@Name", SqlDbType.VarChar).Value = Name
        cm.Parameters.Add("@TranDate", SqlDbType.DateTime).Value = TranDate

        cm.ExecuteNonQuery()

Kan jeg ikke bare bruge strSQL i stedet for mycommand?

fik det til at virke var bare noget med sporg i mssql serveren. så skulle gerne virke nu. Ellers tak for hjælpen så smid lige set svar.

Det var godt du fik det til at køre.

Jeps og tak for hjælpen :)