dim actdate = DateTime.Now.ToString("MM/dd/yyyy hh:mm:ss")
cmd.parameters.Add(New OleDbParameter("letdate", CType(actdate, Date)))
actdate = DateTime.Now
Dim actDate as DateTime = DateTime.Now cmd.parameters.AddWithValue("letdate", sctDate)
call koneksi() sql = "insert into cube([no],[letdate])" & " "values(?,?)" cmd = New OleDbCommand(sql, conn) dim actdate as datetime = DateTime.Now With cmd.Parameters .Add(New OleDbParameter("@no", CType(serno.Text, Integer))) .Add(New OleDbParameter("@letdate", CType(actdate, Date))) End With cmd.ExecuteNonQuery() cmd.Dispose() conn.Close()
dim actdate as datetime = datetime.now.tostring("MM/dd/yyyy HH:mm:ss")
CREATE TABLE [CUBE] ( [NO] SMALLINT, [LETDATE] DATETIME )
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)