导航:首页 > 数据处理 > vb如何产生两个数据

vb如何产生两个数据

发布时间:2025-03-19 02:57:06

① vb 提取两个最小值

Dim arrList, arrItem
Dim lListCount As Long
Dim i As Long
Dim sStr3 As String
Dim sStr31 As String
Dim iVal3 As Single
Dim iVal31 As Single
Dim iVal4 As Single
Dim iTmp As Single

arrList = Split(Text1.Text, vbCr) '
lListCount = UBound(arrList)

iVal3 = 3.402823E+38
iVal4 = 3.402823E+38

For i = 0 To lListCount - 1
If Len(Trim(arrList(i))) > 0 Then
arrItem = Split(arrList(i), ",")
iTmp = Val(arrItem(2))
If iVal3 > iTmp Then
iVal31 = iVal3
sStr31 = sStr3
iVal3 = iTmp
sStr3 = arrItem(0) & "," & arrItem(1)
End If
iTmp = Val(arrItem(3))
If iVal4 > iTmp Then iVal4 = iTmp
End If
Next
text2.Text = sStr31 & "," & iVal31 & vbCrLf & sStr3 & "," & iVal3 & vbCrLf & iVal4

② VB操作两个数据库,从A数据库表中查询,然后写入B数据库表中!

这个不难
我教你怎么跨数据库(跨服务器都可以)操作多数据表:
新建一个ACCESS,放在VB工程目录下,什么都不要去做,就用到他的一个ODBC功能做桥接,在VB中连接ACCESS数据库照常
我就给个ADO连接ACCESS连接SQL多数据库连接表联合查询两个数据库数据表的例子:
Private Sub 控件名称_事件过程(变量)
Dim A, B as String
'-----------------定义变量来存字符串
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ACCESS数据库.后缀"
'-----------------连接ACCESS数据库照常
A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBC;Server=SQL Server;uid=用户名;PWD=密码;Server=服务器IP;DataBase=数据库名1] Where 字段3 LIKE %'5555'%"

B="Select 字段8 AS 名称1, 字段9 as 名称2 From 表2 IN [ODBC] [ODBC;Server=SQL Server;uid=2用户名;PWD=密码;Server=服务器IP;DataBase=数据库名2]"
Adodc1.recordsoure= A & "Unoin" & B
Adodc1.Refresh
Set 电子表格.DataSource=Adodc1
End Sub

看到没有?跨了数据库,服务器都可以跨,SQL语句没多大问题吧?我相信,推荐答案那么简单的语句只能解决SQL操作问题。

阅读全文

与vb如何产生两个数据相关的资料

热点内容
邢台职业技术学院有什么科目 浏览:328
房屋交易受理单掉了怎么办 浏览:544
银川学习电脑技术哪里好 浏览:375
如何自己给飞度动手刷定速程序 浏览:270
楼下不到10米建菜市场怎么办 浏览:478
淘宝代理点怎么申请 浏览:473
c1没考过多久系统能注销信息 浏览:104
天津图钉代理加盟前景怎么样 浏览:671
转移信息接续表要多久 浏览:976
请假单代理人是什么意思 浏览:801
小程序不套用模板多少钱 浏览:104
天津最火旧物市场在什么地方 浏览:820
水木萃白代理怎么样 浏览:290
如何不收到青桔的信息 浏览:226
永定哪里有交易中心 浏览:811
现货黄金交易师如何管理好资金 浏览:534
小米闪付怎么没有交易记录 浏览:340
证券身份证信息更新一般多久 浏览:579
肥东有什么农产品 浏览:603
黑马程序员顺义在哪个大学里 浏览:585