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

【37263】Targetの使い方 ハナ 06/4/27(木) 13:27 質問
【37264】Targetの使い方追加 ハナ 06/4/27(木) 13:35 質問
【37267】Re:Targetの使い方 ハチ 06/4/27(木) 14:01 回答
【37270】Re:Targetの使い方 Jaka 06/4/27(木) 14:44 発言
【37271】Re:Targetの使い方 Jaka 06/4/27(木) 15:31 発言
【37290】Re:Targetの使い方 ハナ 06/4/28(金) 9:03 お礼

44484 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free