ASP(VBScript）での開発をしています。
全角英数記号を、半角英数記号に変換したくて、以下のメソッドを
作りました。
Function FunFullToHalf(ByVal StrTarget)
Dim ObjBASP21
Dim StrHalf
Set ObjBASP21 = Server.CreateObject("basp21")
StrHalf = ObjBASP21.StrConv(StrTarget,8)
FunFullToHalf = StrTarget
End Function
しかし、これだと、全角カタカナまで半角になってしまい、困っています。
回避策を教えていただけないでしょうか。
環境：Visual Basic2008
ＤＢ：MySQL
教えて下さい。
MySQLにOLEプロバイダ経由で接続したいと考え、以下のように記述しましたが、下記の★印の
ところで、次のようなエラーとなってしまいます。
何が原因か教えて頂きたいと思います。
よろしくお願いします。
【エラー内容】
エラー メッセージはありません。結果コードは E_FAIL(0x80004005) です。
【記述内容】
' 全レコードを取得してコンソールに出力
Dim syain As New DataTable()
Dim msg As String
Dim strOut As String
Const SELECT_発注データ As String = "SELECT * FROM T_発注データ"
Dim con As New OleDbConnection()
Dim cmd As New OleDbCommand()
Dim da As New OleDbDataAdapter()
Dim dt As DataSet = New DataSet()
Try
' DB接続文字列の設定
con.ConnectionString = "Provider=MySQLProv;Data Source=localhost;User Id=root;Password=000000;"
' コネクションの設定
cmd.Connection = con
' SQL文の設定
cmd.CommandText = SELECT_発注データ
' データを取得する
da.SelectCommand = cmd
da.Fill(syain) ・・・・ ★★★
Catch ex As Exception
' 例外が発生した時の処理
End Try
以下のようなマクロを組んでいるのですが
指定したセルの内容をDeleteした場合に
型が一致しませんというエラーが発生します
エラーが出るのはDeleteした場合のみで
他の操作ではエラーになりません
どのように変更したらよいでしょうか？
Private Sub worksheet_change(ByVal Target As Excel.Range)
If Application.Intersect(Target, Range("C40:C45")) Is Nothing Then Exit Sub
If Target = "" Then Worksheets("リスト").AutoFilterMode = False: Exit Sub
Worksheets("リスト").Range("A:I").AutoFilter field:=1, Criteria1:=Target.Value
End Sub
いきなりですが,VBAでは下記のように組むマクロをC#にて組みたいと思っているのですが
可能なのでしょうか？
Ｃ言語はほとんど使ってなかったためかなり忘れています・・・我ながら情けない．
どなたか教えてください．
以下がVBAにて組んだ場合のプログラムです．
sub test()
dim a(12) as long
a(1)=31
a(2)=30
a(3)=31
a(4)=30
a(5)=31
a(6)=30
a(7)=31
a(8)=31
a(9)=30
a(10)=31
a(11)=30
a(12)=31
for i=1 To 12
months=a(i)
next i
