Никогда не видел такой ошибки:
Public Function PrimkCreate ( ByVal myPrimkTable Как строки , ByVal nCon Как OdbcConnection ) Как Integer Dim анс Как Integer Dim командование составляющих As OdbcCommand = Новый OdbcCommand ( "CREATE TABLE IF NOT EXISTS" + myPrimkTable + "(" & _ "prm_id INT NOT NULL," & _ "pkni text," & _ "текст pdatum," & _ "pdatumnaplate text," & _ "pdanaodgode int," & _ "текст puldok," & _ "текст puldokbroj," & _ "текст pdatumk," & _ "текст pvrijemek," & _ "pdobid int," & _ "pdoboib text," & _ "pnabc двойной точности," & _ "purab двойной точности," & _ "ppdv двойной точности," & _ "ppnak двойной точности," & _ "pprodc двойной точности," & _ "pvrstaprimke ИНТ," & _ «pzapisniktekst текст, текст « & _ » prez, « & _ « CONSTRAINT » & myPrimkTable & « _pkey ПЕРВИЧНЫЙ КЛЮЧ (prm_id)) » , nCon ) ans = cCommand . ExecuteNonQuery () cCommand . Dispose () Возвращает ans End Function Ошибка при выполнении запроса
Создание таблицы:
Public Function update_LPrimk(ByRef primk As Integer, ByVal mCon As OdbcConnection) As Integer
Dim retval As Integer
Dim uCmd As OdbcCommand = New OdbcCommand("UPDATE " & myPrimkTable & " SET " & _
"prm_id=" & primk & ", " & _
"pkni='" & prm.pKni & "', " & _
"pdatum='" & prm.pDatum & "', " & _
"pdatumnaplate='" & prm.pDatumNaplate & "', " & _
"pdanaodgode=" & prm.pDanaodgode & ", " & _
"puldok='" & prm.pUlDok & "', " & _
"puldokbroj='" & prm.pUlDokBroj & "', " & _
"pdatumk='" & prm.pDatumk & "', " & _
"pvrijemek='" & prm.pVrijemek & "', " & _
"pdobid='" & prm.pDobID & "', " & _
"pdoboib='" & prm.pDobOib & "', " & _
"pnabc='" & Replace(prm.pNabc.ToString, ",", ".") & "', " & _
"purab='" & Replace(prm.pURab.ToString, ",", ".") & "', " & _
"ppdv='" & Replace(prm.pPdv.ToString, ",", ".") & "', " & _
"ppnak='" & Replace(prm.pPnak.ToString, ",", ".") & "', " & _
"pprodc='" & Replace(prm.pProdc.ToString, ",", ".") & "', " & _
"pvrstaprimke=" & prm.pVrstaPrimke & ", " & _
"pzapisniktekst='" & prm.pZapisnikTekst & "', " & _
"prez='" & prm.pRez & "' " & _
"WHERE prm_id=" + primk.ToString, mCon)
retval = uCmd.ExecuteNonQuery()
uCmd.Dispose()
Return retval
End Function
Обновить код:
UPDATE primke SET prm_id=1, pkni='U', pdatum='07.01.2013', pdatumnaplate='10.01.2013',
pdanaodgode=3, puldok='ghkzug gugug', puldokbroj='jkhk', pdatumk='', pvrijemek='',
pdobid='', pdoboib='', pnabc='0', purab='0', ppdv='0', ppnak='0', pprodc='0',
pvrstaprimke=0, pzapisniktekst='', prez='' WHERE prm_id=1
Запрос выглядит примерно так:
''
У меня много таблиц, где я запускаю похожие команды, но никогда не видел такой ошибки.
Что может быть проблемой?