|
途中の 社員番号出力 を書くのを忘れてました
内容は以下のとおりです
どうぞよろしくお願いします
Sub 社員番号出力()
Dim Cn As New ADODB.Connection
Dim 番号 As String
番号 = ActiveSheet.Cells(1, 2).Value
With Cn
.ConnectionString = _
"driver={MySQL ODBC 3.51 Driver};" & _
"Host=localhost;DATABASE=hogehoge;" & _
"UID=xxxx;pwd=pwd"
.Open
End With
Cn.Execute ("SET NAMES sjis")
msql = "select * from syain where syainbangou=" & 番号 & ";"
Set Rst = New ADODB.Recordset
Rst.Open msql, Cn, adOpenStatic, adLockReadOnly
If Rst.EOF Then
ActiveSheet.Cells(1, 2).Activate
ActiveCell.Interior.ColorIndex = 3
MsgBox ("登録がありません")
GoTo EH
End If
'
With ActiveSheet
.Cells(2, 2) = Rst!simei
.Cells(3, 2) = Rst!furigana
.Cells(4, 2) = Rst!syozoku
.Cells(5, 2) = Rst!yakusyoku
End With
M出力
EH:
Rst.Close
Cn.Close
Set Rst = Nothing
Set Cn = Nothing
End Sub
以上です
|
|