主页

关于数据库的问题，请高手指教！

spirit00 2002-05-16 05:18:50

有这样一个数据库，只有一个表，表名：PP里面有三个字段：lysl_y,lysl_z，jzrq
这三个字段中有可能有空记录，现在要对这些空记录进行处理，处理的原则是这样的：如果jzrq(就诊日期)出现空缺，填充方法是把上一个记录的日期填上，如果lysl_y,lysl_z出现空缺，要求用它的前5个和后5个记录去平均值填写
我该怎么写代码呢？用SQL能解决吗？不管什么方法能解决就给分！谢谢啦
紧急啊！

...全文

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

roberthanker 2002-05-17

后面一个问题有点麻烦。因为有可能前面或者后面不够5个。

回复赞

roberthanker 2002-05-17

上一个帖子有点小错误

update pp as a set a.jzrq=(select TOP 1 jzrq from pp as b where b.IDENTITYCOL<a.IDENTITYCOL order by b.IDENTITY DESC) where a.jzrq=NULL

回复赞

roberthanker 2002-05-17

问题1
update pp as a set jzrq=(select TOP 1 jzrq from pp as b where b.IDENTITYCOL<a.IDENTITYCOL order by b.IDENTITY DESC) where a.jzrq=NULL

回复赞

huatao 2002-05-17

当然可以代码实现，可是我今天没有时间给你写：（

回复赞

lovingkiss 2002-05-17

对不起，打开了太多，贴错了贴子

替换空值应该是Isnull(Price,$10.00)把空的替换成$10.00
用SQL语句就可以了

回复赞

lovingkiss 2002-05-17

.显示表的名称和类型
Public Sub OpenSchemaX()

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close

End Sub

用openschema列出所有table的名称吗？

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext Loop
rstSchema.Close
cnn1.Close

回复赞

spirit00 2002-05-17

数据库已经存在了，怎么使用默认值。现在是检查工作。做点实际的行不？
不管用什么办法只要实现上述功能就可以。拜托了兄弟们！！！

回复赞

spirit00 2002-05-17

TO 天堂的鬼
当然有唯一的ID 就叫ID啊
你能编出来吗？

回复赞