可以使用ACCESS或SQL的数据库的程序该怎么写

发布网友 发布时间：2022-05-02 00:32

我来回答

共5个回答

热心网友 时间：2022-06-25 14:34

我是利用VB
可以使用ACCESS数据库的程序，通过VB链接access数据库一般都是用ADO访问技术，有ADO控件和代码两种形式，控件比较简单些，代码比较复杂些，但是通用性很强。我给你讲下控件的吧
首先你要在工程里引用这个控件ADODC
Dim qq As String
qq = "select * from 表1"
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=qq.mdb" ‘比较简单的字符串链接，你的ACCESS要放到和这个程序相同的目录下
Adodc1.CommandType = adCmdUnknown'这句话是链接你的ACCESS数据库 （一）
Adodc1.RecordSource = qq ‘得到限定条件的数据
Adodc1.Refresh ’刷新
Set Text1.DataSource = Adodc1 ‘将数据赋值给文本控件
Text1.DataField = "qq" ’选择要显示的字段

我说的这些仅仅是简单的数据访问，其实数据库访问是一个很大的学问，程序的好坏直接影响你的程序速度

我讲的已经很清楚了啊，难道你还不明白？？你说的打印到底是什么意思？是不是打印出纸质的，打印一般都是通过报表来实现的，如果你要想在VB窗体中打印只能打印显示数据的控件或者打印窗体。
CommonDialog1.ShowPrinter ‘调用打印机对象
Me.PrintForm ’打印窗体

如果你想把数据库中查找到的记录放到一个表格中，可以在“部件”中选择DATAGRID控件，这个控件可以以表格的形式显示你的数据

热心网友 时间：2022-06-25 14:35

因为Access是微软自己的，而sql server 是从Sybase 买来的，所以差异还是有一些的
主要是一些函数不同，比如日期的处理 ，字符串处理， 这时就要对这些不同的地方进行封装,然后在里面分别对access 和 sql server 进行处理
不过也不是很容易

比如

public function sqlgetdate() as string
dim sql as string
if gbAccess then
'access
sql = " now() "
else
' sql server
sql = " getdate() "
end if
sqlgetdate = sql
end function

热心网友 时间：2022-06-25 14:35

搂住到底什么意思？
就是想写一个程序可以调用这两种数据库里的数据，然后进行操作的程序 和 你的比如我输入一组数据，能同其他老数据区别开，只操作新数据的这种实时程序 是不相干的呀

热心网友 时间：2022-06-25 14:36

无法直接实现，目前最正统的做法是分别撰写2个类，一个类专门用于执行 ACCESS 的操作，一个专门用于执行 SQLSERVER 的操作。

从未看到过一个完整的程序能够用同一种 SQL 语句同时兼容 SQL SERVER 和 ACCESS 的。

热心网友 时间：2022-06-25 14:36

不是很明白楼上的意思，如果是调用数据库中的数据，可以用ODBC或ADO先连接，然后可以进行添加删除等操作。