'excel导入access ,引用ADO
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\dbemp.mdb;" & "Persist Security Info=False"
conn.Open
conn.Execute "Drop Table [Emptable]"
conn.Close
ExportExcelSheetToAccess "Sheet1", "D:\Test.xls", "Emptable", "D:\dbemp.mdb"
End Sub
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & s ......
using System;
using System.Collections.Generic;
using System.Text;
using System.Data;
using System.Configuration;
using System.Data.OleDb;
namespace DAL
{
public class OleDbHelper
{
public static OleDbCommand cmd = null;
public static OleDbConnection conn = null;
public static string connstr = "Provider=Microsoft.Jet.OleDb.4.0;Data Source="+ConfigurationManager.AppSettings["DbPath"];
public OleDbHelper()
{ }
#region 建立数据库连接对象
/// <summary>
/// 建立数据库连接
/// </summary>
/// <returns>返回一个数据库的连接OleDbConnection对象</returns>
public static OleDbConnection init()
{
try
{
conn = new OleDbConnection(connstr);
if (conn.State != ConnectionState.Open)
{
conn.Open();
}
}
......
2010年SQLite学习笔记之一
一． 如何获取SQLite最新版本
官方站点：http://www.sqlite.org/
从http://www.sqlite.org/网站的Download页面获取
即如下页面下载
http://www.sqlite.org/download.html
二．Windows下的SQLite的源代码是哪个软件压缩包？
sqlite-amalgamation-3_6_22.zip是SQLite的windows下源码文件
三．Window下的SQLite命令行工具
sqlite-3_6_22.zip
四．Window下的SQLite开发库，即动态链接库以及DEF文件
sqlitedll-3_6_22.zip
五．SQLite最新版本是：3.6.22
六．b<=a && a <= c 的SQL语句如何写
在SQLite中, 表达式"a BETWEEN b AND c"等于表达式 "a >= b AND a <= c",在比较表达式时,a可以是具有任何亲和性
七．a的值是x,y,z其中一个值，SQL语句如何写
SQLite把表达式 "a IN (x, y, z)" 和 "a = z OR a = y OR a = z"视为相等.
八．如何创建制定目录的数据库
sqlite3 D:\Project\SyncML\Lib\debug\atsync.db
九．创建数据的注意事项
如果不往数据库里面添加任何的表，这个数据库等于没有建立，不会在硬盘上产生任何文件，如果数据库 ......
HOLDLOCK 将共享锁保留到事务完成，而不是在相应的表、行或数据页不再需要时就立即释放锁。HOLDLOCK 等同于 SERIALIZABLE。
NOLOCK 不要发出共享锁，并且不要提供排它锁。当此选项生效时，可能会读取未提交的事务或一组在读取中间回滚的页面。有可能发生脏读。仅应用于 SELECT 语句。
PAGLOCK 在通常使用单个表锁的地方采用页锁。
READCOMMITTED 用与运行在提交读隔离级别的事务相同的锁语义执行扫描。默认情况下，SQL Server 2000 在此隔离级别上操作。 READPAST 跳过锁定行。此选项导致事务跳过由其它事务锁定的行（这些行平常会显示在结果集内），而不是阻塞该事务，使其等待其它事务释放在这些行上的锁。READPAST 锁提示仅适用于运行在提交读隔离级别的事务，并且只在行级锁之后读取。仅适用于 SELECT 语句。 READUNCOMMITTED 等同于 NOLOCK。
REPEATABLEREAD 用与运行在可重复读隔离级别的事务相同的锁语义执行扫描。
ROWLOCK 使用行级锁，而不使用粒度更粗的页级锁和表级锁。
SERIALIZABLE 用与运行在可串行读隔离级别的事务相同的锁语义执行扫描。等同于 HOLDLOCK。
TABLOCK 使用表锁代替粒度更细的行级锁或页级锁。在语句结束前，SQL Server 一直� ......
Delphi使用资源文件全攻略
在通常情况下使用delphi设计程序，都是将字符串、图像等资源直接使用delphi提供的vcl控件加到*.dfm中，这样做会合修改这些资源时带来不便，如果资源被多次引用，这些资源在程序启动时都被加载到内存中，非常耗费系统资源。因此，这就需要一种新的引用资源的文件：资源文件。资源文件就是将一些资源，如字符串、图像等信息进行编译，然后在程序中引用编译后的资源文件，最后和源程序一起编译生成可执行文件。由于在资源文件中的资源是在需要时加载，因此，比较节省系统资源，而且，如果要做国际化版本的系统，只需要将资源文件一换，重新编译即可。下面就详细介绍delphi中资源文件的建立和使用。
一、建立资源文件
资源文件的源文件是普通的文本文件，扩展名是*.rc。将资源文件的内容写入文件后，调用brcc32.exe将其编译后生成*.res文件。brcc32.exe在delphi的bin目录中。
二、字符串资源
字符串资源实际上是将一个字符串和一个数字索引对应，在装载字符串资源时，需要提供这个字符串资源所对应的数字索引。字符串资源文件以stringtable开头，使用一对begin和and将资源定义括起来。 字符 ......
关于delphi Assigned
1.根据 Delphi 指令参考手册中
说明：
Assigned 函式在参数不为nil时传回True,表示指针已经指到某个内存地址，这个内存地址可能是一个对象地首地址，也可能在函数或过程中，声明一个指针变量，没有赋值为nil ，无乱的指向某处，这两个种情况，Assigned（指针变量）都不为nil , 函数放回True；
而参数为nil时则传回False。
Assigned 并不是一个真正的函数。
技巧：
用呼叫 Assigned 的方式来取代直接把参数拿来和nil比较，效率会更好。
2.这个问题要从内存方面来解释
当你建构一个物件 SomeComponet.Create(Owner);
系统会有一个指针指向这个对象
当你解构一个物件 SomeComponet.Free;
系统会将指针指到的东西杀掉，但是指标还是指在相同的位置
请注意计算机的资源是有限的，
所以可能下一步你的程序要跟系统要资源，
刚才的指针位置，就出现了其它的数据
If Assigned(SomeComponet) then SomeComponet := nil;
先检查这个对象有没有在其它地方被设成 nil，
然后再将它设成 nil 。
当我们无法预测使用者会如何操爆他的计算机，
程序员必须留意内存的管理。 小弟浅见...
3
function Assigned(var P): Boolean;
Description ......
最新文章 :