Felt type notat i access database ?

OleDbType.LongVarChar

eller

OleDbType.VarWChar

tror jeg

ok det var så alligevel ikke det der drillede kan jeg se. Jeg får denne fejl :

Exception Details: System.Data.OleDb.OleDbException: Datatyperne stemmer ikke overens i kriterieudtrykket.

Og det opstår udfra denne Sql :

Dim objComm = New OleDbCommand
objComm.Parameters.Add("@Language", OleDbType.VarChar)
objComm.Parameters.Add("@LinkName", OleDbType.VarChar)
objComm.Parameters.Add("@Id", OleDbType.Integer)
objComm.Parameters("@Language").Value = Language
objComm.Parameters("@LinkName").Value = LinkName
objComm.Parameters("@Id").Value = Id

objComm.CommandText = "Update tbl_textlinks Set getLanguage = @Language, LinkName = @LinkName Where TextId = @Id"
objComm.ExecuteNonQuery()

Med felt typer på TextId = tal, getLanguage = tekst, LinkName = tekst kan du se at der skulle være nogle fejl ud fra det ?

/Websam

Har du et felt TextId af typen Integer ?

feltet TextId er af typen tal det er måske ikke det samme som integer ?

Hvilken form for tal ?

Det er sat til langt heltal

så er Integer ok

prøv evt. at sætte en længde på:

objComm.Parameters.Add("@Language", OleDbType.VarChar, 50)
objComm.Parameters.Add("@LinkName", OleDbType.VarChar, 200)

Det giver samme resultat :

Datatyperne stemmer ikke overens

prøv og ret din SQL streng fra @xxx til ?

men bare behold @xxx i parameters

Dim objComm = New OleDbCommand
objComm.Parameters.Add("@Language", OleDbType.VarChar)
objComm.Parameters.Add("@LinkName", OleDbType.VarChar)
objComm.Parameters.Add("@Id", OleDbType.Integer)
objComm.Parameters("@Language").Value = Language
objComm.Parameters("@LinkName").Value = LinkName
objComm.Parameters("@Id").Value = Id
objComm.CommandText = "Update tbl_textlinks Set getLanguage = ?, LinkName = ? Where TextId = ?"
objComm.ExecuteNonQuery()

Jeg får stadig den samme fejl :

Exception Details: System.Data.OleDb.OleDbException: Datatyperne stemmer ikke overens i kriterieudtrykket.

Nu har jeg så lige prøvet at hardkode TextId = 1 og så virker det så altså må der være noget jeg misser i den forbindelse.

kan det have noget at sige at feltet ikke er autonummeret ?

hvor er din connection ?

og variablem Id er af typen Integer ?

følgende virker nemlig hos mig:

Imports System
Imports System.Data.OleDb

Module Main
    Sub Main()
        Dim objConn As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb;")
        objConn.Open
        Dim objComm = New OleDbCommand
        objComm.Connection = objConn
        objComm.CommandText = "Update tbl_textlinks Set getLanguage = ?, LinkName = ? Where TextId = ?"
        objComm.Parameters.Add("@Language", OleDbType.VarChar, 50)
        objComm.Parameters.Add("@LinkName", OleDbType.VarChar, 50)
        objComm.Parameters.Add("@Id", OleDbType.Integer)
        objComm.Parameters("@Language").Value = "Et sprog"
        objComm.Parameters("@LinkName").Value = "Et link navn"
        objComm.Parameters("@Id").Value = 1
        objComm.ExecuteNonQuery
        objConn.Close
    End Sub
End Module

Hmmmm......jeg ved sq ikke helt hvad der sker, men nu har computeren stået slukket et par timer og nu virker det og jeg har ikke ændret en disse, men smid et svar så kommer der point ;o)

En anden ting der undrede mig var oxo at den gerne ville acceptere en update der sker i en anden tabel i samme function og oven i købet med samme id det var ikke helt til at fatte .o0

/Websam

tja

Og min connection ligger i en anden klasse, det kiggede vi vist på forleden dag ;o)

/Websam

Og er troede jeg lige det hele var så godt men nej, det virker stadigt ikke !

Min function ser således Ud :

Public Function TextEdit(ByVal Language As String, _
                        ByVal Headline As String, _
                        ByVal LinkName As String, _
                        ByVal Description As String, _
                        ByVal Id As Integer)
    Dim objDb As DbClass = New DbClass
    Dim objComm = New OleDbCommand
    objComm.Parameters.Add("@Language", OleDbType.VarChar)
    objComm.Parameters.Add("@Headline", OleDbType.VarChar)
    objComm.Parameters.Add("@LinkName", OleDbType.VarChar)
    objComm.Parameters.Add("@Description", OleDbType.LongVarChar)
    objComm.Parameters.Add("@GroupBy", OleDbType.VarChar)
    objComm.Parameters.Add("@Id", OleDbType.Integer)
    objComm.Parameters("@Language").Value = Language
    objComm.Parameters("@Headline").Value = Headline
    objComm.Parameters("@LinkName").Value = LinkName
    objComm.Parameters("@Description").Value = Description
    objComm.Parameters("@GroupBy").Value = UCase(Left(LinkName, 1))
    objComm.Parameters("@Id").Value = Id
    objComm.Connection = objDb.AccessConnect
    Try
        objComm.CommandText = "Update tbl_text Set getLanguage = @Language, Headline = @Headline, LinkName = @LinkName, Description = @Description, GroupBy = @GroupBy Where Id = @Id"
        objComm.ExecuteNonQuery()
        objComm.CommandText = "Update tbl_textlinks Set getLanguage = @Language, LinkName = @LinkName Where TextId = @Id"
        objComm.ExecuteNonQuery()
    Catch ex As Exception
        Return ex.Message
    Finally
        objDb.AccessClose()
    End Try
    Return "True"
End Function

Den første update der køre virker ganske fint men nummer 2 går barre ud i den samme fejl ???????

/Websam

prøv lige at sæt det relevante parametre igen

eller endnu bedre brug en anden kommando og sæt dem igen

Hvad tænker du på ?

Dim objComm2 = New OleDbCommand
og så sæt alle parametre på den