请问在客户端如何产生我需要的表？（sql server 2000）

Question

我的是普通的单机版的一个管理软件 在本机上有一数据库 （sql server 2000） 本人用delphi写了一个管理系统 然后我想发布我的应用程序  即使别人机器上没有安装sql server 2000  也能够使用我的这个软件 该如何做？谢谢

Answer 1

MSDE(还没试用过)可以放进安装包

Answer 2

看看这个有帮助没http://www.delphifans.com/infoView/Article_914.html

Answer 3

VB 连接SQLSERVER 希望对你有点帮助,其他语言类似
'SQL Server 数据库
Public Function ConnectString() As String
  ConnectString = "driver={SQL Server};SERVER=Stone;DATABASE=教学成绩管理数据库;UID=sa;PWD=2008008"
  'ConnectString = "provider=sqloledb.1;data source=Jane;uid=sa;pwd=wufeng0119;database=教学成绩管理数据库"
End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
   '传递参数：SQL 传递查询语句，MsgString传递查询信息，返回执行结果记录集 Recordset
   Dim cnn As ADODB.Connection          '定义连接
   Dim rst As ADODB.Recordset           '定义返回结果：记录集
   Dim sTokens() As String              '定义字符串
   
   On Error GoTo ExecuteSQL_Error       '
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
      cnn.BeginTrans
      cnn.Execute SQL
      cnn.CommitTrans
      MsgString = sTokens(0) & " 查询成功 "
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & Err.Description
   Resume ExecuteSQL_Exit
End Function

Answer 4

１.连接到你的数据库服务器
２.改用access
３.改你的管理软件成c／s模式

Answer 5

用文件类数据库。装msde还是装了数据库引擎，虽然说可以一起与程序打包，那还不如直接装个开发版上去给他。