A. sql...如何将表查询的结果自动保存到*.txt文件中
1、将SQL语句,保存到一个文本文件 s.sql 中
2、建立一个批处理文件runsql.bat,内容如下:
osql -S数据库名 -Usql用户名 -Psql用户密码 -i s.sql -o result.txt
(如果安装的是 SQL2000,可将上面的osql,改为 isql)
3、运行runsql.bat后,检查result.txt,这里就是SQL语句执行后的结果
B. vb 将SQL Server中的记录生成文件 保存起来
用自动向导往外导。
C. mysql怎样设置用sql语句查询出的报表定时自动导出
mysql -h主机IP -u用户名 -p密码 -e "SQL语句" 库的名字 > 文件存放路径/文件名.xls
例如:mysql -h192.168.1.1 -uroot -p123456 -e "select * from e_iclass_areas" test > /root/test/test.xls
上面是语句,然后把上面的语句写成一个脚本,给一个可执行权限,然后在通过crontab做一个定时任务即可
脚本内容:
#!/bin/bash
mysql -h192.168.1.1 -uroot -p123456 -e "select * from e_iclass_areas" test > /root/test/test.xls
假设脚本名称是test.sh,所在路径是/root/test/test.sh,则给其授权
chmod +x /root/test/test.sh
然后做定时任务,定时执行此脚本,比如每天晚上2点执行:
crontab
0 2 0 0 0 /root/test/test.sh
D. ERP软件用的是SQL2000数据库,能不能用VB编程制作出自己想要的报表(数据从SQL数据库中去取),多谢!
当然可以。只要你熟悉erp软件的数据库架构。
E. 我用ADO连接到了SQL2008里的一个表。然后在VB里要实现直接表里添加,删除,修改,保存功能。
Private Sub Delete_Click()
'声明数据库连接对象
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打开数据库连接
conn.Open
'执行删除sql语句
conn.Execute "Delete from Users where UserName='insert' or UserName='update'"
'关闭数据库并释放数据库对象
conn.Close
Set conn = Nothing
End Sub
'***********************************************************
'添加函数
'************************************************************
Private Sub InsertButton_Click()
'声明数据库连接对象
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打开数据库连接
conn.Open
'执行添加sql语句
conn.Execute "Insert into Users (UserName,UserPassword) values ('insert','test')"
'关闭数据库并释放数据库对象
conn.Close
Set conn = Nothing
End Sub
'***********************************************************
'读取函数
'************************************************************
Private Sub SelectButton_Click()
'声明数据库连接对象和记录集对象
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'指定连接字符串
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打开数据库连接
conn.Open
'执行查询sql语句
rs.Open "Select * from Users", conn
'读取记录集内容
While Not rs.EOF
'显示记录
Print rs("UserId"), rs("UserName"), rs("UserPassword")
rs.MoveNext
Wend
'关闭记录集并释放记录集对象
rs.Close
Set rs = Nothing
'关闭数据库并释放数据库对象
conn.Close
Set conn = Nothing
End Sub
'***********************************************************
'更新函数
'************************************************************
Private Sub Update_Click()
'声明数据库连接对象
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打开数据库连接
conn.Open
'执行更新sql语句
conn.Execute "Update Users set UserName='update' where UserName='insert'"
'关闭数据库并释放数据库对象
conn.Close
Set conn = Nothing
End Sub
F. 如何设计SQL数据库表格才能完美的存放这个报表的内容,求大神解答~
你这个表格需要程序支撑,比如每个月数据的录入以及平均日进量的计算等等
如果什么都不考虑,就是人工采集数据,直接录入,然后通过一个程序展示报表
那么表结构大概这样
队
组
工程名称
工程量(这个其实可以几列合计,不需要建列)
平均日进(这个应该能通过工程量/生产天数,也不需要保存,看你需要)
月进(也许是月平均值,没仔细看你数据关系,总之可以通过计算的就不需要在表中体现)
生产天数(估计是起止时间差,用datediff函数可以得到)
开始时间
截止时间
巷道性质
备注
4月(这部分我估计你是每季度一张表,每个记录保存三个月就够了,所以列名可以分别写月1、月2、月3,到时候生成表头的时候再调整)
5月
6月
至于列的性质,建议你数字的用int,字符的用varchar(50),时间也用varchar(20),改动方便
合计列和小计列要在生成报表的时候处理
G. VB中怎样保存数据(保存在VB数据库里)
1.使用文件来记录,下次运行时读取 .2.使用数据库,可以考虑单机数据库或网络数据库 3.如果数据量小,使用注册表.
或者可以通过程序来保存:
set fs=createobject("scripting.filesystemobject")'创建文件操作对象
if fs.fileexists("C:\a.txt") then'如果C盘A.txt存在,那么读取其内容
set txt=fs.opentextfile("C:\a.txt",forreading,true)
set txtn=txt.readall
else'
set txtf=fs.createtextfile("c:\a.txt",true)'创建C盘下的a.txt
do'无限循环
wscript.sleep 1000'延时一秒
txtf.write a.text'写入文本框中内容
loop'循环结束
end if'判断结束
H. VB做报表的问题
你可以用VB自己带的报表工具 不必再安装什么东西 在菜单 -- 工具 --添加 --数据报表 VB要装全
I. 高分求助:VB连接ACCESS进行数据筛选最后生成报表并用EXCEL保存的代码
如果数据量不太大,建议使用ado连接access和excel
从你的说法来看,excel只需要保存数据,不存在手工编辑excel,最好的方法就是ado连接
ado连接excel和access,如果超过97版本,就需要vb中添加组件
好像叫 microsoft activex Data Objects 2.7 Library 以上。
用ado连接字分别连接access 和excel
连接excel
dim myconn as new connection
dim myrs as new recordset
myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 你excel文件包含路径的文件名& ";Extended Properties=""Excel 8.0;HDR=Yes;"";"""
myrs.Open "Select * from [Sheet1$]", MyXLSConn, adOpenDynamic, adLockOptimistic
'可对sheet1做操作。
这样就把excel 的sheet1作为一张数据表使用。
通过 myrs.addnew myrs.delete myrs.update 对表进行操作。
这种方法适用简单。不过有个前提,你需要先建立好一个excel,excel第一行为字段名称。
可通过FSO基于某个建立好的excel文件做模板,生成多个包含数据的excel
access的使用方法和excel一样,也可以适用ado,只是myconn后面的连接字不同。可网上查找连接字。
学习的关键字如下:
vb6 ado 连接字 recordset
J. vb中怎么自动生成报表啊
用msflexgird+ado 或者datagrid+ado+adobc 用msflexgrid+ado的话,用ado连接数据库,然后再一个个填到msflexgird里 如果用第二种的话,就用ado连接,然后通过adodc绑定到datagrid上。