关于VB的三个问题!!!

Sander 2000-05-14 02:11:00
问题一、怎样在SQL语句中使用变量
我用dataenvironment1作了一个command1其中SQL语句为:
SELECT Counter.Code, SUM(CounterDayReport.Value18) AS 零售数,
SUM(CounterDayReport.Value19) AS 零售额, SUM(CounterDayReport.Value22)
AS 零售退货数, SUM(CounterDayReport.Value23) AS 零售退货额,
SUM(CounterDayReport.Value26) AS 零售优惠金额,
SUM(CounterDayReport.Value19 - CounterDayReport.Value23) AS 实际销售金额,
Counter.Name
FROM Counter INNER JOIN
CounterDayReport ON Counter.Code = CounterDayReport.CounterCode
INTO 当前运行程序的目录\表名
WHERE (CONVERT(char, CounterDayReport.Date, 102) = ?)
GROUP BY Counter.Code, Counter.Name
ORDER BY Counter.Code
*****************************
我希望INTO新增的表,为“当前运行程序的目录\表名”
我知道用APP.PATH但怎样在DATAENVIRONMENT中的SQL语句中用变量?请各位大虾指点。请举例!!!

问题二、我怎样使用控件DATAGRID来显示表。
我用程序命令连接数据库:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim ConnStr As String
ConnStr = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=KingTCS;Data Source=wingon"
conn.Open ConnStr

Rem rs.CursorLocation = adUseClient
rs.CursorLocation = adUseServer
rs.Open "Select * From Stock", conn, adOpenDynamic, adLockPessimistic
************************************************************
我怎样使用控件DATAGRID来显示表。
DATAGRID1.DATASOURCE=填写ADODC1的什麽名?


问题三、一些VFP命令语句相对VB命令语句?
我原使用VFP编程 ,现对如下命令在VB用什麽名令不清楚,请告知?
用途 VFP命令语句 VB命令语句
在当前记录插入一条空记录 INSERT BEFORE BLANK ?
更改/添加/删除 字段/字段属性 ALTER TABLE ADD ?

...全文
117 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Asima 2000-05-14
  • 打赏
  • 举报
回复
第一个问题:假设表名是"mytable"
dim Sqlstr as string
dim TableName as String
if right(app.path,1)<>"\" then
TableName=app.path & "\"
else
TableName=app.path
end if
TableName =TableName & "mytable"
Sqlstr="SELECT Counter.Code, SUM(CounterDayReport.Value18) AS 零售数, _
SUM(CounterDayReport.Value19) AS 零售额, SUM _(CounterDayReport.Value22) _
AS 零售退货数, SUM(CounterDayReport.Value23) AS 零售退货额, _
SUM(CounterDayReport.Value26) AS 零售优惠金额, _
SUM(CounterDayReport.Value19 - CounterDayReport.Value23) AS 实际销售金额, _
Counter.Name _
FROM Counter INNER JOIN _
CounterDayReport ON Counter.Code = CounterDayReport.CounterCode INTO " _
& TableName
Asima 2000-05-14
  • 打赏
  • 举报
回复
第一个问题:假设表名是"mytable"
dim Sqlstr as string
dim TableName as String
if right(app.path,1)<>"\" then TableName=app.path & "\"
TableName =TableName & "mytable"
Sqlstr="SELECT Counter.Code, SUM(CounterDayReport.Value18) AS 零售数, _
SUM(CounterDayReport.Value19) AS 零售额, SUM _(CounterDayReport.Value22) _
AS 零售退货数, SUM(CounterDayReport.Value23) AS 零售退货额, _
SUM(CounterDayReport.Value26) AS 零售优惠金额, _
SUM(CounterDayReport.Value19 - CounterDayReport.Value23) AS 实际销售金额, _
Counter.Name _
FROM Counter INNER JOIN _
CounterDayReport ON Counter.Code = CounterDayReport.CounterCode INTO " _
& TableName

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧