当前位置:编程学习 > VB >>

VB程序如何连接已分离的数据库?

如题 什么叫"已分离的数据库" 有哪位大侠在的告诉小弟一下,急用啊   谢谢   我现在的问题是:我编了一个VB程序,连接的是SQL Server2000,但是这个程序要上交,关键是老师不会再电脑上给你建立一个数据库来检查你的程序,听说可以打包数据库,但具体办法不知道啊   就是将SQL 2000里自己建的数据库给分离出来了一个MDF和一个LOF文件
是LDF文件
你需要将mdf和ldf附加到Sql server才行.
引用 5 楼 xxyj6450 的回复:
你需要将mdf和ldf附加到Sql server才行.

我在说一遍我的意思哈:我在我的机器上做了一个VB 程序,连接的是SQL Server2000数据库,但是我想在一台没有安装的SQL Server2000上运行我的程序,那我的数据库应该怎么办那
引用 6 楼 fjz444729331 的回复:
引用 5 楼 xxyj6450 的回复:
你需要将mdf和ldf附加到Sql server才行.

我在说一遍我的意思哈:我在我的机器上做了一个VB 程序,连接的是SQL Server2000数据库,但是我想在一台没有安装的SQL Server2000上运行我的程序,那我的数据库应该怎么办那

不安装sql server想读取mdf的数据怕是非常难,几乎不可能.
可以考虑在客户端安装精简版,express版
或者考虑换数据库,用mdb,sqlite之类
引用 7 楼 xxyj6450 的回复:
不安装sql server想读取mdf……

关键是我要上交这个程序,如果老师的机器里没有SQL Server2000或者老师根本就懒得再它机器上的SQL Server 2000建立你需要的表怎么办 ? 还有没有人在啊,我还是不知道 该怎么办,愁死了,晚上九点之前就得上交了    怎么实现啊    哪位大侠能救济一下啊   你要读取mdf基本是不可能了.
要么换数据库.要么装SQL SERVER,要么连接远程数据库.
不要想读mdf了. 换ACCESS数据库。
一个小程序用什么sql数据库啊?
引用 11 楼 chinaboyzyq 的回复:
换ACCESS数据库。
一个小程序用什么sql数据库啊?

恩呢   我现在正换Access数据库呢,九点之前就要交了   希望能赶上   ,关键是我不会用ACCESS数据库啊    呵呵  
引用 12 楼 fjz444729331 的回复:
引用 11 楼 chinaboyzyq 的回复:
换ACCESS数据库。
一个小程序用什么sql数据库啊?

恩呢   我现在正换Access数据库呢,九点之前就要交了   希望能赶上   ,关键是我不会用ACCESS数据库啊    呵呵

除了连接串,sql语句都差不多,但注意日期字段ACCESS用#....#,sql server用'...',模糊查找ACCESS用*,sql server用%,其它还有不同,注意修改一下。
access应该还容易些吧,不过语句有点差异
引用 14 楼 choovy123 的回复:
access应该还容易些吧,不过语句有点差异

呵呵   是的   琢磨中。。。   不过还好   呵呵
引用 14 楼 choovy123 的回复:
access应该还容易些吧,不过语句有点差异

现在遇到点问题,怎么向VB增加Access表中的一个数据的同时删除另一个表中的一个信息,两个表关联的是“编号” Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\新建文件夹\MIS大赛失物招领管理系统\Acess 数据库\失物招领系统.mdb;Persist Security Info=False"
cn.Open
Dim i As Integer
Dim j As Integer
Dim str As String
Dim str1 As String
Dim Tno As String
Dim TDraeson As String
Tno = Text1.Text
TDreason = Text2.Text
Set rs.ActiveConnection = cn
i = MsgBox("确定删除?", vbOKCancel, "提示")
If i = vbOK Then
str = "insert into 删除物品信息(物品编号,物品删除原因) values('" + Tno + "','" + TDreason + "');"
str1 = "delete * from 物品 where 物品编号='" + Tno + "';"
cn.Execute (str)
cn.Execute (str1)
j = MsgBox("删除成功!", vbOKOnly, "提示")
Else
  InformationDelete.Show
End If

cn.Close
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

这段程序哪有错误,提示是cn.Execute (str)
cn.Execute (str1)
有错误   不明白 str1 = "delete   from 物品 where 物品编号='" + Tno + "';"
引用 18 楼 xxyj6450 的回复:
str1 = "delete from 物品 where 物品编号='" + Tno + "';"

这样试过了    不行    不知道咋回事    呵呵  delete 物品 一、打包。安装包,把MSDE打进去,附加数据库。
二、换ACCESS等单文件数据库。
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,