- 帖子
- 51
- 主題
- 11
- 精華
- 0
- 積分
- 110
- 點名
- 0
- 作業系統
- win 10
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2017-7-15
- 最後登錄
- 2024-10-27
|
[發問] VBA求救高手,將資料分割到指定TEXTBOX
我是用VBA,想要新增一些資料,從SQL SERVER中讀取"備註"的資料,備註的資料範例如下
"7/3 USA
PO#22001999 - 海運
MFG Date:2023-03-15
Lancet:2201229001 2027-03-13
Code NO : F674
Control L1:XC230301L 2025-03-06*1507(QC*0)
Control L2:XC230302M 2025-03-05*1507(QC*0)
Control L3:XC230303H 2025-03-04*1507(QC*0)
Control L4:XC230323L 2025-03-22*1507(QC*0)
Control L5:XC2303012M 2025-03-23*1507(QC*0)
Control L6:XC23033232 2025-03-19*1507(QC*0)
MFG L1:2022-03-06
MFG L2:2022-03-07
MFG L3:2022-03-08
Strips:THS2303002 2025-03-14
L1:46 - 76 mg/dL、34 - 78 mmol/L,Mean: 61 mg/dL、62 mmol/L
L2:90 - 134 mg/dL、56 -90 mmol/L,Mean: 112 mg/dL、63 mmol/L
L3:173 - 259 mg/dL、66 -778 mmol/L,Mean: 216 mg/dL、64 mmol/L"
我想要將以上"備註"的資料分別都存入TEXTBOX中
預期的結果如下
TEXTBOX27=22001999
TEXTBOX23=2023-03-15
TEXTBOX24=2201229001
TEXTBOX25=2027-03-13
TEXTBOX26=F674
TEXTBOX4=XC230301L
TEXTBOX15=XC230302M
TEXTBOX16=XC230303H
TEXTBOX6=2025-03-06
TEXTBOX19=2025-03-05
TEXTBOX20=2025-03-04
TEXTBOX13=2022-03-06
TEXTBOX17=2022-03-07
TEXTBOX18=2022-03-08
TEXTBOX21=THS2303002
TEXTBOX22=2025-03-14
TEXTBOX28=46
TEXTBOX29=76
TEXTBOX30=34
TEXTBOX31=78
TEXTBOX32=61
TEXTBOX33=62
TEXTBOX34=90
TEXTBOX35=134
TEXTBOX36=56
TEXTBOX37=90
TEXTBOX38=112
TEXTBOX39=63
TEXTBOX40=173
TEXTBOX41=259
TEXTBOX42=66
TEXTBOX43=778
TEXTBOX44=216
TEXTBOX45=64
我的CODE如下,
Private Sub CommandButton1_Click()
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = Target
cn.Open
Dim strSQL As String
strSQL = "SELECT DISTINCT 料號, 工令數量, 機器序號開始,備註 FROM WORK43600 WHERE 工令='" & TextBox1.Value & "'"
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, cn
If Not rs.EOF Then
TextBox2.Value = rs("料號").Value
TextBox3.Value = rs("工令數量").Value
TextBox5.Value = rs("機器序號開始").Value
Dim remark As String
remark = rs("備註").Value
Else
MsgBox "找不到相應的工單!", vbExclamation, "錯誤"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub |
|