Select T1.Nyr,(IsNull((T3.DP1-T2.DP1)-(T2.DP1-T1.DP1),0)) As DP1差值,(IsNull((T2.DP3-T2.DP1)-(T1.DP3-T1.DP1),0)) As DP3DP1差值 "
From DATA T1
Left Join DATA T2
On DateDiff(dd,T1.Nyr,T2.Nyr)=1
Left Join DATA T3
On DateDiff(dd,T2.Nyr,T3.Nyr)=1
上面的这段查询语句在SQL中可以实现,没问题,为什么在VB中有问题(如下).Private Sub Command1_Click()
Set db = New adodb.Connection
Set rs = New adodb.Recordset
db.ConnectionString = "driver={SQL SERVER};SERVER={OEM-XX};DATABASE=northwind;persist security info=false;userid=sa"
db.Open
rs.Open "Select T1.Nyr,(IsNull((T3.DP1-T2.DP1)-(T2.DP1-T1.DP1),0)) As DP1差值,(IsNull((T2.DP3-T2.DP1)-(T1.DP3-T1.DP1),0)) As DP3DP1差值 "
From DATA T1
Left Join DATA T2
On DateDiff(dd,T1.Nyr,T2.Nyr)=1
Left Join DATA T3
On DateDiff(dd,T2.Nyr,T3.Nyr)=1", db, adOpenStatic, adLockReadOnlySet DataGrid1.DataSource = rsEnd Sub主要问题是在FROM后面的DATA T1等会提示错误该怎么改?
From DATA T1
Left Join DATA T2
On DateDiff(dd,T1.Nyr,T2.Nyr)=1
Left Join DATA T3
On DateDiff(dd,T2.Nyr,T3.Nyr)=1
上面的这段查询语句在SQL中可以实现,没问题,为什么在VB中有问题(如下).Private Sub Command1_Click()
Set db = New adodb.Connection
Set rs = New adodb.Recordset
db.ConnectionString = "driver={SQL SERVER};SERVER={OEM-XX};DATABASE=northwind;persist security info=false;userid=sa"
db.Open
rs.Open "Select T1.Nyr,(IsNull((T3.DP1-T2.DP1)-(T2.DP1-T1.DP1),0)) As DP1差值,(IsNull((T2.DP3-T2.DP1)-(T1.DP3-T1.DP1),0)) As DP3DP1差值 "
From DATA T1
Left Join DATA T2
On DateDiff(dd,T1.Nyr,T2.Nyr)=1
Left Join DATA T3
On DateDiff(dd,T2.Nyr,T3.Nyr)=1", db, adOpenStatic, adLockReadOnlySet DataGrid1.DataSource = rsEnd Sub主要问题是在FROM后面的DATA T1等会提示错误该怎么改?
解决方案 »
- vb与sql2005如何连接
- 关于报警与提示功能
- 如何做帮助菜单中“关于本系统”的窗体
- 如何在listview中加入checkbox控件?
- mscomm rs-232 串口通信 测试程序
- 我搬到博客园了,欢迎大家来捧场,有惊喜,你懂的
- 100分求助!!调用DLL的问题!!!!!!
- 关于VB的LEN函数
- 各位大哥,高分(100)请求救命!!!!
- MATLAB m文件生成dll文件时出现错误
- 求助:打开工程时出现 error during loading.....
- ocx的问题,为什么我在vb中新建的ocx已用regsvr32 注册了,用html还是调用 不起来,但只用在vb中启用了工程,就可以了
应 该 是 user id