md c:\BugTest >>cd c:\BugTest >>create database BugTest >>Create table Test (f1 i, f2 t, f3 i autoinc) >>close data all >>>>
Local loCon As Adodb.Connection,; >> loCmd As Adodb.Command, ; >> loParm As Adodb.Parameter >> >>loCon = Createobject('AdoDb.Connection') >>loCmd = Createobject('Adodb.Command') >> >>loCon.ConnectionString='Provider=VFPOLEDB;Data Source=c:\Bugtest\BugTest.dbc' >>loCon.Open() >> >>loCmd.ActiveConnection=loCon >>loCmd.CommandText='insert into Test (f1, f2) values (SECONDS(),?)' >> >>loParm = loCmd.CreateParameter('f2') >>loParm.Type = 135 && adDBTimeStamp >>loParm.Value = Datetime() >>loCmd.Parameters.Append( loParm ) >> >>loCmd.Execute() >> >>loCon.Close >> >>Use test >>Go Bottom >>Browse >>Use >>>>
using System; >>using System.Data; >>using System.Data.OleDb; >> >>class test >>{ >> static void Main() >> { >> OleDbConnection cn = new OleDbConnection(@"Provider=VFPOLEDB;Data source=C:\BugTest\bugtest.dbc;"); >> OleDbCommand cmdInsert = new OleDbCommand("insert into test (f1,f2) values (999,?)",cn); >> >> cmdInsert.Parameters.AddWithValue("p2",DateTime.Now); >> cn.Open(); >> >> cmdInsert.ExecuteNonQuery(); >> cmdInsert.Parameters["p2"].Value = new DateTime(2010,1,31,10,20,30); >> cmdInsert.ExecuteNonQuery(); >> >> Console.WriteLine( "DbType: {0}\nOleDbType: {1}", >> (int)cmdInsert.Parameters["p2"].DbType, >> (int)cmdInsert.Parameters["p2"].OleDbType ); >> } >>} >>>>