導航:首頁 > 數據處理 > 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如何產生兩個數據相關的資料

熱點內容
請假單代理人是什麼意思 瀏覽:801
小程序不套用模板多少錢 瀏覽:104
天津最火舊物市場在什麼地方 瀏覽:820
水木萃白代理怎麼樣 瀏覽:290
如何不收到青桔的信息 瀏覽:226
永定哪裡有交易中心 瀏覽:811
現貨黃金交易師如何管理好資金 瀏覽:534
小米閃付怎麼沒有交易記錄 瀏覽:340
證券身份證信息更新一般多久 瀏覽:579
肥東有什麼農產品 瀏覽:603
黑馬程序員順義在哪個大學里 瀏覽:585
母嬰健康店裡都賣什麼產品 瀏覽:671
微信代理什麼模式好 瀏覽:631
濱州純正胡辣湯技術培訓哪裡有 瀏覽:439
含有肽的產品有哪些 瀏覽:638
大自然告訴我們有哪些信息 瀏覽:685
羅馬數據類型是什麼意思 瀏覽:894
福安職業技術學校美容美體怎麼樣 瀏覽:515
花卉大市場搬遷到哪裡 瀏覽:763
異地交易登記是什麼意思 瀏覽:536