دستور insert برای دیتابیس افلاین

[Siaic 88]

با سلام

من میخوام یک سری اطلاعات با هر بار زدن باتن به دیتابیسم اضافه کنم از دستور زیر استفاده کردم ولی اشتباه.

id هم باید خودکار یکی اضافه بشه ولی من زیاد با دیتابیس کار نکردم لطفا کمکم کنید تشکر.

 

Dim cur As Cursor
	cur = SQL1.ExecQuery("SELECT * FROM sefareshat_tbl")
		SQL1.ExecNonQuery("INSERT INTO sefareshat_tbl (id,cod,time,date) VALUES ( '" & (cur.Position+1) & "' , '" & (serial.GetDeviceId & w) & "' , '" & DateTime.Time(DateTime.Now) & "' , '" & MPD.PersianShortDate) & "' )")

 

[sbr 233]

در ۱ ساعت قبل، Siaic گفته است :

با سلام

من میخوام یک سری اطلاعات با هر بار زدن باتن به دیتابیسم اضافه کنم از دستور زیر استفاده کردم ولی اشتباه.

id هم باید خودکار یکی اضافه بشه ولی من زیاد با دیتابیس کار نکردم لطفا کمکم کنید تشکر.

 

Dim cur As Cursor
	cur = SQL1.ExecQuery("SELECT * FROM sefareshat_tbl")
		SQL1.ExecNonQuery("INSERT INTO sefareshat_tbl (id,cod,time,date) VALUES ( '" & (cur.Position+1) & "' , '" & (serial.GetDeviceId & w) & "' , '" & DateTime.Time(DateTime.Now) & "' , '" & MPD.PersianShortDate) & "' )")