|
Dobrý den, měl bych dotaz, při vykonávání níže položeného skriptu ve VB 2008 mi to hlásí "přetečení". Přitom skript jako takový funguje pokud zapisuji např. jen 2 buňky. (jedná se o databázi, která není součástí exe - projektu ale je zařazena do jiného programu. Předem děkuji za radu. Pokud by se skript dal přepsat jinak lépe, nechám si poradit. Díky Pavel
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
Dim PwdCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\xxx.mdb;Persist Security Info=False"
Dim oledbcon As New OleDbConnection(PwdCon)
Try
oledbcon.Open()
'Dim strSQL As String = "UPDATE(FApol) SET SText='uprava' WHERE (ID=5)"
Dim strSQL As String = "INSERT INTO FA(Polozky, Cislo, VarSym, SText, Datum, DatUcP, DatSplat, TpStorn, DatZdPln, DatObj, Kc0, Kc1, KcDPH1, Kc2, KcDPH2, KcCelkem, KcLikv, Firma, Jmeno, Ulice, PSC, Obec, ICO, DIC, Firma2, Jmeno2, Ulice2, PSC2, Obec2, DatCreate, DatSave, Ucetni, Creator, Lock) VALUES (-1,'27010009','27010009','sdgfsdg:',#22/8/2007#,#22/8/2007#,#22/8/2007#,#22/8/2007#,0,#22/8/2007#,#1/1/2007#,0,100,5,1000,190,1295,1295,'Firma - fakt','PD','Ax','60000','Br',12,'12','Firma 1 - dodací','P 7','60000','xx',#22/8/2007#,#22/8/2007#,'@','@',0);"
Dim cmd As OleDbCommand = New OleDbCommand(strSQL, oledbcon)
Dim objadd As OleDbDataReader
objadd = cmd.ExecuteReader
objadd.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
oledbcon.Close()
End Try
End Sub
|