对移动数据库sdf的一点体会

tjahz

1、移动手机（wm系统）使用的数据库是sqlce，格式是 *.sdf，access数据库不能直接使用；
2、开发移动应用程序可用VS2008，需要进行一系列配置，相关资料网上可查询；
3、分享一下本人使用VBA操作操作sdf数据库的代码：(代码很简单，但花了我几天的时间，网上资料太少)

Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim sql as string
Set Conn = New ADODB.Connection
Conn.ConnectionString = "PROVIDER=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=c:\db1.sdf"
Conn.Open
Set RS = New ADODB.Recordset

sql = "select * from table1"  'table 表名

RS.Open sql, Conn

For iCols = 0 To RS.Fields.Count - 1
    Cells(1, iCols + 1).Value = RS.Fields(iCols).Name '列出字段名
Next
Cells(2, 1).CopyFromRecordset RS ‘显示记录

'以下删除记table1表中所有记录
sql = "delete  from table1"   '删除记table1表中所有记录
Conn.Execute sql

'添加sheet表中数据到sdf数据库最麻烦

shh = Sheets("sheet1").UsedRange.Rows.Count  '最大记录数

For i = 2 To shh  '添加范围，从第2行开始逐行添加
    sql = "insert into  table1 (字段1,字段2,字段3,字段4,字段5,...字段10) values('"
    For l = 1 To 9
          sql = sql & Cells(i, l).Value & "','"
   Next l
   sql = sql & Cells(i, 10).Value & "')"
   Conn.Execute sql   'sql的格式很重要,错一点都过不去
Next i
Conn.Close

[ 本帖最后由 tjahz 于 2010-8-13 10:41 编辑 ]

tjahz

1、向access数据库添加记录很简单，一行代码就搞定，向sdf添加怎么试都不行
sql = "insert into [table1] select * from [excel 8.0;database=" & ThisWorkbook.FullName & ";hdr=yes;imex=1].[sheet1$" & sAddress & "];"

2、使用 ADODB.Recordset 无法添加记录

Set RS = New ADODB.Recordset
sql = "select * from table1"  'table 表名
RS.Open sql, Conn '无论第3、4个参数怎么设，下面代码都出错
RS.AddNew

amolin

智能手机支持VBA 吗？

tjahz

忘了说了，以上要在台式机上安装SQL Server Compact 3.5 ，还要引用ado

tjahz

mobile office 没有VBA功能，想开发程序就用VS2008，VS2010都不行

matt1122

VS2010需要注册码 大家都是自己买的吗？

tjahz

以上代码实现了EXCLE和SDF数据库记录的导入、导出。access数据库和sdf数据库的数据转换也可用类似代码。大家网上查查，相关资料很少啊！