度々、VBの質問をしています。学習中ですみません。
TextBoxに入力されている文字をテキストファイルとして保存したいのですが、
参考にしているテキストが、Imageファイルだったので途中から分からなくて…
どのようにしたら良いのでしょうか？
’OKボタンがクリックされたときに
入力するコードをどなたか教えてください。
フォームにメニューを追加し、その下に名前を付けて保存を入力しています。
Private Sub 名前を付けて保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 名前を付けて保存ToolStripMenuItem.Click
Dim sfd As New SaveFileDialog
'はじめに表示されるフォルダを指定する
sfd.InitialDirectory = "C:\Users\○○\Desktop"
'「ファイルの種類」に表示される選択肢を指定する
sfd.Filter = "すべてのファイル(*.*)|*.*|テキストファイル(*.txt)|*.txt"
'「テキストファイル」が選択されているようにする
sfd.FilterIndex = 2
sfd.Title = "保存先のフォルダを選択してください。"
sfd.RestoreDirectory = True
'ダイアログボックスを表示する
If sfd.ShowDialog() = DialogResult.OK Then
'OKボタンがクリックされたとき
End If
Auslogics Disk Defragでの分析について
先日、Auslogics Disk Defragをダウンロードして１TBの外付けHDDを初めてデフラグしたのですが、その際、使用方法がよくわからなかった為、はじめに「分析」をせずに、いきなり「デフラグと最適化」を実行しました。途中、分析の存在に気付いたのですが、やり直す方が負担になるかもと思い続行し、２時間ほどでデフラグと最適化は正常に終了しました。、その後とくに問題もないのですが、やはり手順的には本来「分析」をして「デフラグと最適化」をした方がいいのでしょうか？また、分析をせずにデフラグと最適化をする事で何か考えられる問題はないでしょうか？今の段階では何も不具合は確認されませんが、心配なのでわかる方いましたら是非教えて下さい。よろしくお願いします。
VB.netでのMySQLの接続エラーについて
『行いたい事』
レンタルサーバー（ロリポップ）で管理しているサイトのデータベース（MySQL）にパソコンから接続したいと考えています。
パソコンからレンタルサーバーで管理しているデーターベースにアクセスするための言語はVB.netを使用しています。
パソコンからVB.netにてSQLを使用してサーバーにあるデータベースのデータの取得等を行いたいと考えています。
『問題』
下記プログラムにてstrPasswordに直接、レンタルサーバー（ロリポップ）より取得したパスワードを記載しているのですが、Open() 時にエラーとなってしまいます。
下記★の部分が、会社からインターネットに接続する為のプロバイダーから取得しているパスワードに自動的に変わってしまいます。
基本的な事で申し訳ありませんが、ご教授のほどよろしくお願いします。
●環境
・Windows XP
・Visual Studio 2008
・.NET Framework3.0 sp2
端末からデータベースへアクセスするためにConnector/Netを入手しインストールも行っています。
●-----エラー内容-----
Access denied for user 'ユーザID'@'★ここが変わっています★' (using password: YES)
●--------------------
●-----プログラム-----
Dim strServerName As String = "●●.lolipop.jp"
Dim strUserID As String = "ユーザID"
Dim strPassword As String = "パスワード"
Dim strDataBaseName As String = "データベース名"
Dim sqlStr As String
Dim dr As MySqlDataReader
Dim cmd As MySqlCommand
Dim MySql As New MySqlConnection
'接続パラメータ定義.
Dim strParam = String.Format("Server={0};User ID={1};Password={2};Initial Catalog={3};Convert Zero Datetime=true", _
strServerName, strUserID, strPassword, strDataBaseName)
'接続準備
MySql = New MySqlConnection(strParam)
'接続
MySql.Open() ★この行でエラーとなり書き換わっています。
'クローズ
MySql.Close()
●------------------
