Dim Name Name = "Bluesky1" Dim [2条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要： import java.applet.*; import java.awt.*; import java.awt.event.*; public class checkgroup extends applet implements itemlistener {checkboxgroup style; checkbox p,b,i; button btn; public void init(......

·[求助] 如何删除已注册的服务 »显示摘要«

摘要：请教：由于经常练习新建一些应用程序的服务，导致每次选择某个服务时，有太多的选项，如何删除一些无用的服务！谢谢 ......

*********简单问题**********

Dim Name
Name = "Bluesky1"
Dim rs0 As New ADODB.Recordset
With rs0
.LockType = adLockOptimistic
.Open "select DISTINCT(Tariff_Customer) from Tariff", conn
End With

Dim rs As New ADODB.Recordset

With rs
.LockType = adLockOptimistic
.Open "select * from Tariff where Tariff_Customer =" & "" & rs0.Fields("Tariff_Customer") & "", conn
End With

提示错误：表Tariff已经打开。

请问如何能同时访问一个表？

NO.1 作者： DaiLM

Dim Name
Name = "Bluesky1"

Dim rs0 As New ADODB.Recordset
rs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1

Dim rs As New ADODB.Recordset
rs.Open "select * from Tariff where Tariff_Customer =" & "" & rs0.Fields("Tariff_Customer") & "", conn,1,1

NO.2 作者： qingming81

加一句：
Dim Name
Name = "Bluesky1"

Dim rs0 As New ADODB.Recordset
rs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1

======================
While Not rs0.EOF
======================
Dim rs As New ADODB.Recordset
rs.Open "select * from Tariff where Tariff_Customer =" & "" & rs0.Fields("Tariff_Customer") & "", conn,1,1

===================
rs.close
rs0.movenext
wend
=================

·大家来讨论讨论，上海用c++的都有些什么公司呀 »显示摘要«

摘要：我不大清楚，想问问 ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：