adVarChar = 200
adParamInput = 1
Set dbConn = CreateObject("ADODB.connection")
dbConn.open DSNName, DBUserName, DBPassword
test2 = String$(300, "a")
SQLStatement = "INSERT INTO testform_2(test_2) VALUES(?) "
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = dbConn
objCommand.CommandTimeout = 40
objCommand.CommandType = 1
objCommand.CommandText = SQLStatement
objCommand.Prepared = True
objCommand.Parameters.Append objCommand.CreateParameter("test_2", adVarChar, adParamInput, Len(test2), test2)
objCommand.Execute
Set objCommand = Nothing
dbConn.Close
set dbConn = Nothing
Koden fungerar inte, hela VBA miljön jag jobbar i kraschar och en speciell fellogg skapas i en Lotu Notes katalog. Om jag kör exakt samma kod men jag struntar i parameter raden och gör en vanlig insert går det utmärkt.
Jag vill använda parametrar för Lotus Notes ODBC driver har en begränsning på max 254 tecken på fält när man gör en INSERT eller en UPDATE vanligt, men det skall gå att komma runt om man har parametrar istället enligt IBM. Dock hittar jag inga kod exempel.
Har aldrig jobbat med parametrar på det här sättet i ADODB så jag vet inte riktigt vad jag håller på med :)