189 8069 5689
你把编程语言和T-SQL语言搞混了。
为政和等地区用户提供了全套网页设计制作服务，及政和网站建设行业解决方案。主营业务为成都网站设计、成都网站建设、外贸网站建设、政和网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
如果是单纯的T-SQL语言，应该是Select * from Data where ID in (1,2,3,4,5,6)，其中(1,2,3,4,5,6）就是你所说的数组的代表。
所以你要把num(i)转化为一个(1,2,3,......)这样的字符串
以下是完整模块
Imports
System.Data
Imports
System.IO
Imports
System.Data.OleDb
Module
Module1
Public
cn
As
New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
Application.StartupPath
"\mdb数据库名字.mdb")
'定义连接
Public
DataBaseRST
As
Integer
'用来返回数据库执行结果
Public
Function
DataModify(ByVal
str
As
String)
As
Boolean
'进行数据库修改操作
Dim
cmdinsert
As
New
OleDbCommand
Try
cmdinsert.CommandText
=
str
cmdinsert.Connection
=
cn
If
cn.State
=
ConnectionState.Closed
Then
cn.Open()
DataBaseRST
=
cmdinsert.ExecuteNonQuery()
'用来返回执行的结果
cn.Close()
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
Public
Function
Search(ByVal
str
As
String,
ByVal
DGV
As
DataGridView)
As
Boolean
'查询
str---查询命令，DGV---DataGridView，用来显示数据的控件
Dim
tb
As
New
DataTable
Try
Dim
ap
As
New
OleDb.OleDbDataAdapter(str,
cn)
ap.Fill(tb)
DGV.DataSource
=
tb
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
End
Module
'以下是调用方法
DataModify("
insert
into
aa
values
('1','2')")'-------这里是数据库更新操作
Search("select
bb
from
aa",DataGridView1)'-----------这里是数据表查询操作
sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写
很久之前做过的，希望能帮上，试试看吧：)
另外,虚机团上产品团购,超级便宜
匿名 ??span class="tm"7-21 02:14/span
/p
div class="b bt2"div class="bt bg1 ft"img alt="其他答案" height="16" src="/static/img/ico2.gif" width="16"/其他答案/div/div
p class="ft p1"1. sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的，要用引号括起来当字符串，ms要大写
很久之前做过的，希望能帮上，试试看吧：)
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小强'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一个command控件，conn是你的sqlconnection对象
conn.open()'打开数据连接
dim
myreader
as
sqldatareader'定义一个reader用来读数据
myreader
=
mycommand.executereader()'运行你的查询，结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
end
if
'各项查询条件为空的时候用 1=1来代替
'例如：
tmpSelIDStr=Trim(txtSelectId.Text)
if tmpSelIDStr="" then
tmpSelIDStr=" 1=1 "
Else
tmpSelIDStr=" 员工编号='" tmpSelIDStr "'"
End If
'同理其它的都这么处理
'最后合并起来
sqlstr="select ..... from .... where " tmpSelIDStr " and " tmp ....
'不知道这样回答你是否可以理解