Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44484 / 76732

←次へ　｜　前へ→


	【37264】Targetの使い方追加

ハナ - 06/4/27(木) 13:35 -


	引用なし

	パスワード

途中の　社員番号出力　を書くのを忘れてました
内容は以下のとおりです
どうぞよろしくお願いします

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
　　　　　　　　　　　　　　　　　　　　　　　以上です

0 hits

▼

【37263】Targetの使い方 ハナ 06/4/27(木) 13:27