pen_pen_pen の回答履歴
- エラーでつまってます・・・お助け下さい
VS2003.NETで開発中の初心者です。 以下のコード(Form1.vb)を実行すると次のエラーがポップアップされ“oADP.Fill(oDS, "ROOT")”のラインで止まります。 <エラー> 'System.Data.OleDb.OleDbException' のハンドルされていない例外が system.data.dll で発生しました。 どこがおかしいのかわかりません。 詳しい方がいましたら、ご教授下さいませ。 ---------------------------- Imports System.Data.OleDb Public Class Form1 Inherits System.Windows.Forms.Form Private oConn As OleDb.OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0" & ";Data Source=..\USER.mdb") 「Windows フォーム デザイナで生成されたコード」 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '--DataAdapterの設定 Dim oADP As OleDb.OleDbDataAdapter oADP = New OleDb.OleDbDataAdapter("SELECT *FORM TALK WHERE Node=0 ORDER BY No", oConn) '--DataSetの設定 Dim oDS As New DataSet oADP.Fill(oDS, "ROOT") ・ ・ ・ ----------------------------
- ベストアンサー
- Visual Basic
- THUBAN
- 回答数6
- VB6のユーザーコントロールがメモリを食う
VB6でユーザーコントロールを作りまして、OCXにしてそれを、ある画面に数十個張り付けているのですが、メモリをたくさん食います。タスクマネージャで見ると50Mを超え、エラーがでるようです。 画面に張り付けたユーザーコントロールですが、画面を消してもメモリはあまり減らず食ったままになります。画面はちゃんとNothingしているのですが、ユーザーコントロールに使われているメモリは開放されないようです。次のことをご教授願えればおねがいいたします。 1)ユーザーコントロールOCXを動的に画面に張り付ける方法 2)デザイン画面で張り付けたユーザーコントロールOCXのメモリを開放する方法 3)メモリをあまり消費しないユーザーコントロールの作り方 その他なにかよいアドバイスがあればお願いいたします。
- ベストアンサー
- Visual Basic
- lord_chan
- 回答数4
- VB6のユーザーコントロールがメモリを食う
VB6でユーザーコントロールを作りまして、OCXにしてそれを、ある画面に数十個張り付けているのですが、メモリをたくさん食います。タスクマネージャで見ると50Mを超え、エラーがでるようです。 画面に張り付けたユーザーコントロールですが、画面を消してもメモリはあまり減らず食ったままになります。画面はちゃんとNothingしているのですが、ユーザーコントロールに使われているメモリは開放されないようです。次のことをご教授願えればおねがいいたします。 1)ユーザーコントロールOCXを動的に画面に張り付ける方法 2)デザイン画面で張り付けたユーザーコントロールOCXのメモリを開放する方法 3)メモリをあまり消費しないユーザーコントロールの作り方 その他なにかよいアドバイスがあればお願いいたします。
- ベストアンサー
- Visual Basic
- lord_chan
- 回答数4
- VBA(Access)からExcelファイルのシート名判定
AccessにてExcelデータを取得したいのですが、Excelには複数シートが 存在しているため、シート名称を指定しなければいけません。 そこでAccessから「シート名称を指定し(コンボボックスにて指定)各シートの データ取得をする」という処理にしています。 ここで問題が発生 データ取得対象のExcelにAccessより指定したシート名称が無かった場合に エラーとなってしまいます。 これを回避するにはどうしたらよいでしょうか?
- ベストアンサー
- Visual Basic
- nyanaaaa
- 回答数2
- 実数の整数部,小数部の取得
OS:windows2000pro VB:VB6.0sp5 実数 num(変数) [as currency] (但し 小数点以下2位まで)の値の 1.整数部 num_int(変数) [as long] 2.小数部 num_dec(変数) [as long] を上記変数に格納するのは、どのようにすればいいのでしょうか? (例1)num = 123.02 の場合、num_int=123, num_dec=2 (例2)num = 4.20 の場合、num_int= 4, num_dec=20 (例3)num = 0.23 の場合、num_int= 0, num_dec=23 よろしくお願いいたします
- ベストアンサー
- Visual Basic
- nao0
- 回答数5
- 小数点の表示。
少数点を含む計算結果を整数の時でも100.0 もしくは100.とか0.0と必ず小数点を表示させるにはどのようにすれば良いでしょうか?また、文字配列の中のN番目だけを取り出す関数は有りますか? 宜しくお願いします。
- ベストアンサー
- Visual Basic
- toko703
- 回答数1
- VB6のPrintオブジェクトで学生証を作成したい
お世話になります。 VB6のPrinterオブジェクトを使って、学生証のような物を印刷するプログラムを作成しようと思っておりますが、悩んでいるところがありまして・・・ ・長方形(顔写真を張るエリア)の線の作り方 ・ビットマップ(ロゴ)の張り方 ・文章の途中で、フォント種類の変更 (例: 「class : あいう」の場合、「class :」と「あいう」でフォントを分けたい) ・各文章や長方形の開始位置指定 以上の事を行いたいと思っております。 実現方法をご存知の方、ご教授をお願いいたします。 また、サンプルの載っているホームページがありましたら、 そちらも教えてください。 どうぞよろしくお願いいたします。
- 締切済み
- Visual Basic
- chapter002
- 回答数2
- エクセルVBAについて
エクセルVBAでプログラミングしたのですが、 どんなデータ型を使っても「オーバーフロー」 してしまいます。 重すぎるのでしょうか? 重すぎるとしたら、VBAの場合、許容範囲は どれくらいになるのでしょうか? お願いします。
- ベストアンサー
- Visual Basic
- na714
- 回答数8
- エクセルVBAについて
エクセルVBAでプログラミングしたのですが、 どんなデータ型を使っても「オーバーフロー」 してしまいます。 重すぎるのでしょうか? 重すぎるとしたら、VBAの場合、許容範囲は どれくらいになるのでしょうか? お願いします。
- ベストアンサー
- Visual Basic
- na714
- 回答数8
- エクセルVBAについて
エクセルVBAでプログラミングしたのですが、 どんなデータ型を使っても「オーバーフロー」 してしまいます。 重すぎるのでしょうか? 重すぎるとしたら、VBAの場合、許容範囲は どれくらいになるのでしょうか? お願いします。
- ベストアンサー
- Visual Basic
- na714
- 回答数8
- エクセルVBAについて
エクセルVBAでプログラミングしたのですが、 どんなデータ型を使っても「オーバーフロー」 してしまいます。 重すぎるのでしょうか? 重すぎるとしたら、VBAの場合、許容範囲は どれくらいになるのでしょうか? お願いします。
- ベストアンサー
- Visual Basic
- na714
- 回答数8
- VBからExcelのOptionButtonを操作する方法
お世話になります。 いろいろ調べたのですが、答えを見つけられなかったので、質問させていただきます。 --環境-- OS Windows2000 VB 6.0 Office 2000 --目的-- Excelに貼り付けたOptionButtonチェックのON/OFFをVBから操作する。 関係ないことですが、OptionButtonを選択したときに出る OptionButton1=EMBED("Forms.OptionButton.1","") の意味も良くわかりません。 説明不足な点がありましたら、教えて下さい。 ヒントとなることでも結構ですので、宜しくお願いします。
- 締切済み
- Visual Basic
- akahuku7
- 回答数2
- VBからExcelのOptionButtonを操作する方法
お世話になります。 いろいろ調べたのですが、答えを見つけられなかったので、質問させていただきます。 --環境-- OS Windows2000 VB 6.0 Office 2000 --目的-- Excelに貼り付けたOptionButtonチェックのON/OFFをVBから操作する。 関係ないことですが、OptionButtonを選択したときに出る OptionButton1=EMBED("Forms.OptionButton.1","") の意味も良くわかりません。 説明不足な点がありましたら、教えて下さい。 ヒントとなることでも結構ですので、宜しくお願いします。
- 締切済み
- Visual Basic
- akahuku7
- 回答数2
- Word, Excel, PowerPointで2バイト文字検索
お世話になります。 Word, Excel, PowerPointのデータ(ファイル)にある2バイト文字を検索し、順番にハイライト表示(選択状態)にしていく処理をVBAで作りたいと考えています。 当方はC言語やPHPのプログラミングの経験はあるのですが、VBやVBAは初めてでして中々思うように作成が出来ません。 現在はとりあえず試験的に以下のようなプロシージャを作成し、メッセージボックスで表示するところまでは作成出来ています。 Sub check_2byte_stirngs(text As Object) moji_len = Len(text) byte_len = LenB(StrConv(text, vbFromUnicode)) If (moji_len <> byte_len) Then '2バイト文字発見 For i = 1 To Len(text) one_char = Mid(text, i, 1) If LenB(StrConv(one_char, vbFromUnicode)) <> Len(one_char) Then MsgBox one_char End If Next End If End Sub これに以下のような機能を追加したいと思っています。 ・「次へ」を表示するダイアログを付ける(その場で編集可能にしたいのでMsgBoxは使わない) ・見つかった文字の場所までカーソルを移動させて選択状態にする どちらか一方でもお分りの方がいらっしゃいましたら、ご教示願いますでしょうか。 以上、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- deka_pink
- 回答数3
- Word, Excel, PowerPointで2バイト文字検索
お世話になります。 Word, Excel, PowerPointのデータ(ファイル)にある2バイト文字を検索し、順番にハイライト表示(選択状態)にしていく処理をVBAで作りたいと考えています。 当方はC言語やPHPのプログラミングの経験はあるのですが、VBやVBAは初めてでして中々思うように作成が出来ません。 現在はとりあえず試験的に以下のようなプロシージャを作成し、メッセージボックスで表示するところまでは作成出来ています。 Sub check_2byte_stirngs(text As Object) moji_len = Len(text) byte_len = LenB(StrConv(text, vbFromUnicode)) If (moji_len <> byte_len) Then '2バイト文字発見 For i = 1 To Len(text) one_char = Mid(text, i, 1) If LenB(StrConv(one_char, vbFromUnicode)) <> Len(one_char) Then MsgBox one_char End If Next End If End Sub これに以下のような機能を追加したいと思っています。 ・「次へ」を表示するダイアログを付ける(その場で編集可能にしたいのでMsgBoxは使わない) ・見つかった文字の場所までカーソルを移動させて選択状態にする どちらか一方でもお分りの方がいらっしゃいましたら、ご教示願いますでしょうか。 以上、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- deka_pink
- 回答数3
- Word, Excel, PowerPointで2バイト文字検索
お世話になります。 Word, Excel, PowerPointのデータ(ファイル)にある2バイト文字を検索し、順番にハイライト表示(選択状態)にしていく処理をVBAで作りたいと考えています。 当方はC言語やPHPのプログラミングの経験はあるのですが、VBやVBAは初めてでして中々思うように作成が出来ません。 現在はとりあえず試験的に以下のようなプロシージャを作成し、メッセージボックスで表示するところまでは作成出来ています。 Sub check_2byte_stirngs(text As Object) moji_len = Len(text) byte_len = LenB(StrConv(text, vbFromUnicode)) If (moji_len <> byte_len) Then '2バイト文字発見 For i = 1 To Len(text) one_char = Mid(text, i, 1) If LenB(StrConv(one_char, vbFromUnicode)) <> Len(one_char) Then MsgBox one_char End If Next End If End Sub これに以下のような機能を追加したいと思っています。 ・「次へ」を表示するダイアログを付ける(その場で編集可能にしたいのでMsgBoxは使わない) ・見つかった文字の場所までカーソルを移動させて選択状態にする どちらか一方でもお分りの方がいらっしゃいましたら、ご教示願いますでしょうか。 以上、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- deka_pink
- 回答数3
- エクセルのマクロで検索
教えてください。 エクセルにいろいろなセルに文字列が並んでいます。 フォームを作成し、テキストに文字列1、文字列2を指定します。 そこからある文字列1を検索し、もし見つかればその見つかった文字列1の右のセルに指定した文字列2を挿入したいのです。右のセルに文字列3がすでにある場合はその文字列3の下のセルに文字列2を挿入します。 もしみつからなければ、Aの一番下のセルに文字列2を挿入します。 といったプログラムをコーディングしたいのですが、マクロに関しては初心者です。VBは少しなら分かります。 できれば分かりやすく教えて頂けないでしょうか。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- vivatom
- 回答数7
- エクセルVBAでファイル・シート名を指定して、現在のブックのシートにコピーしたい
エクセルVBA独学中の超初心者です。 VBAを利用して以下のことがしたいのですが、わかりません。 助けて下さい。よろしくお願いいたします。 1. ファイルを選択する。 2. 1で選択したファイルから、シート名を選択する 3. 2で選択したシートを現在のブックのSheet1にコピーする
- 締切済み
- Visual Basic
- nekoneko705
- 回答数3
- エクセルVBAでファイル・シート名を指定して、現在のブックのシートにコピーしたい
エクセルVBA独学中の超初心者です。 VBAを利用して以下のことがしたいのですが、わかりません。 助けて下さい。よろしくお願いいたします。 1. ファイルを選択する。 2. 1で選択したファイルから、シート名を選択する 3. 2で選択したシートを現在のブックのSheet1にコピーする
- 締切済み
- Visual Basic
- nekoneko705
- 回答数3
- 変数?
昨日から仕事上の都合でマクロを組んでますが エクセルVBAを使ったのも昨日が初めてです。。(T_T) 質問をしたいのは シートの横1列で1レコードとして それが300レコードほどあります。 そしてそのレコードを印刷用のテンプレートに 項目を飛ばすというマクロは出来たのですが テンプレに飛ばしたいレコードの指定をする為に 選択フォームを作りました。 そのフォームに設けたのは「No.」項目と 「印刷画面へ」と「閉じる」ボタンがあります 「No.」欄に番号を入れて「印刷画面へ」を押すと 指定したレコードを印刷テンプレに・・ を行いたいのですが、 現在下記のように書いてます If textbox1 = 1 Then ・・・(1) windows("データ元ファイル.xls").Activate Range("C4:R4").Select ・・・(2) Selection.Copy Windows("印刷テンプレート.xls").Activate Range("M1").Select ActiveSheet.Paste End If これだと約300近くのレコードに対して コマンドを書かないとダメですよね? そこで(1)のTextbox1の値によって (2)にある("C4:R4")の値が変化するようにしたいのです が、色々調べましたがわかりません。 記述は間違ってると思いますが。 下記のような事をしたいので解る方はすいませんが 教えていただけないでしょうか・・? Textbox1 = x Range("Cx:Rx").Select Selection.Copy
- 締切済み
- Visual Basic
- buffalo69
- 回答数3