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 ); >>> } >>>} >>>>>>