vb作为中间件连接SQL2005和Oracle9i

vb作为中间件连接SQL2005和Oracle9i。
在vb中写了很多插入语句，但是过程太大不能执行，有什么好办法解决的

类似这样的表插入（很多！！！）：
Dim templet_id00001 As Integer
Dim analyze_name00002 As Double
Dim analyze_type00003 As Integer
Dim dataset_id00004 As Integer
Dim x_axisflield00005 As Double
Dim y_axisflield00006 As Double
Dim creator00007 As Double
Dim creat_time00008 As String
Dim remark00009 As Double
Dim change_stamp00010 As String

v5_fphlDbrs.Open "select * from Analyze_Templet ", v5_fphlDbcn

If Not v5_fphlDbrs.EOF Then
templet_id00001 = v5_fphlDbrs.Fields("templet_id")
analyze_name00002 = v5_fphlDbrs.Fields("analyze_name")
analyze_type00003 = v5_fphlDbrs.Fields("analyze_type")
dataset_id00004 = v5_fphlDbrs.Fields("dataset_id")
x_axisflield00005 = v5_fphlDbrs.Fields("x_axisflield")
y_axisflield00006 = v5_fphlDbrs.Fields("y_axisflield")
creator00007 = v5_fphlDbrs.Fields("creator")
creat_time00008 = v5_fphlDbrs.Fields("creat_time")
remark00009 = v5_fphlDbrs.Fields("remark")
change_stamp00010 = v5_fphlDbrs.Fields("change_stamp")
creat_time00008 = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(Hour(Time()), "00") & ":" & Format(Minute(Time()), "00")
change_stamp00010 = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(Hour(Time()), "00") & ":" & Format(Minute(Time()), "00")
  End If
v5_fphlDbrs.Close

fphlDbrs.ActiveConnection = fphlDbcn
fphlDbrs.CursorType = adOpenKeyset
fphlDbrs.LockType = adLockOptimistic
fphlDbrs.CursorLocation = adUseServer
fphlDbrs.Open "Insert Into Analyze_Templet1 values(‘" & templet_id00001 & "’, ‘" & analyze_name00002 & "’, ‘" & analyze_type00003 & "’, ‘" & dataset_id00004 & "’, ‘" & x_axisflield00005 & "’, ‘" & y_axisflield00006 & "’, ‘" & creator00007 & "’, ‘" & creat_time00008 & "’, ‘" & remark00009 & "’, ‘" & change_stamp00010 & "’)", fphlDbcn

我一般是在数据库层面解决，MSSQL和ORACEL之间的数据熔接很方便，你可查查这方面的资料。

开发个中间件，如果单纯的是为了双方的数据交互，有点过于牵强。

呵呵，win8自带的运行库 msvbvm60.dll 版本6.0.98.15 修改时间：2011-8-23