VB.NETで開発をしています。
配列をテーブルに変換するにあたって、新規作成すると、問題なく成功するのですが、
作成中のシステムに組み込みをしますと、Type.GetType("system.stirng")で、「'dataType'引数をNullにすることはできません。」と、エラーが発生します。
原因は、Type.GetType("system.stirng")の結果が、「Nothing」になってしまうからです。
いろいろと試してみましたが、状況が一向に改善されません。
新規作成した方は、「{Name = "String"FullName="System,String"}」と、入っています。
下記を、システムに設置すると、エラーになります。
Dim s1() As String = New String() {"a", "b", "c", "d"}
Dim dt As DataTable
Dim t_data As Object
dt = New DataTable
t_data = Type.GetType("system.stirng")
dt.Columns.Add("kname", t_data)
以上、宜しくお願い致します。
環境は、Visual Studio 2012です。
開発環境:Visual Basic 2005
DataGridViewのDataGridViewTextBoxColumnの1行目をコンボボックスにして、
そのコンボボックスのドロップダウン幅を100に設定しようとしていますが、うまくいきません。
DataGridViewをフォームに貼り付け、以下のプログラムを実行すると、幅が120くらいになってしまいます。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.Columns.Clear()
DataGridView1.AllowUserToAddRows = False
Dim TextColumn As New DataGridViewTextBoxColumn
TextColumn.Name = "Name"
TextColumn.Width = 100
Dim ComboColumn As New DataGridViewComboBoxColumn
ComboColumn.Name = "Type"
Dim List() As String = {"Type A", "Type B", "Type O"}
ComboColumn.DataSource = List
ComboColumn.DropDownWidth = 100
DataGridView1.Columns.Add(TextColumn)
DataGridView1.Columns.Add(ComboColumn)
For i As Integer = 1 To 5
DataGridView1.Rows.Add()
Next
Dim ComboCell As New DataGridViewComboBoxCell
Dim NameList() As String = {"Name A", "Name B", "Name C"}
ComboCell.DataSource = NameList
ComboCell.DropDownWidth = 100
DataGridView1.Rows(0).Cells(0) = ComboCell
End Sub
どこが問題なのかどなたかご教授いただけると助かります。どうぞよろしくお願い致します。
VB.NET(2012)よりMySQLへの接続についてご教示ください。
現状、下記のようなエラーが発生し、DB接続ができない状況です。
'MySQLConnection' は、名前空間 'MySql.Data.MySqlClient' では不適切です。
'MySQLCommand' は、名前空間 'MySql.Data.MySqlClient' では不適切です。
'MySQLDataReader' は、名前空間 'MySql.Data.MySqlClient' では不適切です。
【ソース】
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim con As MySQLConnection
Dim cmd As MySQLCommand
Dim dr As MySQLDataReader
End Sub
End Class
【設定】
Connector/NETのインストール
メニューのプロジェクト→参照の追加→拡張よりMySｑｌ.Dataを指定
メニューのプロジェクト→DB_Accessのプロパティ→参照よりMysql.Data→プロパティ内のローカルコピー：True
参照よりインポートされた名前空間(I)→Mysql、Mysql.Data・・・その他Mysqlのチェックをオン
【環境】
OS：Windows7
開発：.Net2012
DB・サーバ環境：XAMPP(アパッチ、MySQL)
HPでいろいろ調べましたがどれも似たような内容の為、解決できておりません。
何か足りないのでしょうか。
何卒、ご教示のほどよろしくお願い致します。
お世話になります。
VB.Net 駆け出しの者です。
SqlCommand を使いストアドプロシジャーを実行して戻り値を DateSet にするような関数はプログラムを作っていくと、かなり多数になるようになりました。接続文字列だったり、いろいろ同じような記述が続いているなと思っておりました。
そこで、以下のような関数を作り、この部分を使いまわせないものかと思っております。
ストアドプロシジャーの名前や、そのほか必要な部分の文字はすべて変数にして、なんとか使えないのかなと思っているのですが、問題なのは、パラメータの部分でうまくいかないのです。
パラメータの部分だけ別関数にして、なんとかねじこめないかなと思っているのですが・・・
そもそもこういうやり方が正しいのかどうかもわからないのですが、その辺りも含めご教授いただければ幸いでございます。
何卒よろしくお願いいたします。
Public Function CommonDataSet(ByVal NameStored As String, ByVal CMDPara As SqlCommand, ByVal BasicTableName As String, ByVal ErrStr As String, ByVal ErrStrCaption As String) As DataSet
Dim SQLCon As SqlConnection = New SqlConnection(CMO.GetConnectStrings())
Try
CMDPara = New SqlCommand(NameStored, SQLCon)
CMDPara.CommandType = CommandType.StoredProcedure
SQLCon.Open()
Dim custDA As SqlDataAdapter = New SqlDataAdapter
Dim custDS As DataSet = New DataSet
’この部分で下記の関数でパラメータを設定したいのですが、うまくいきません
custDA.SelectCommand = CMDPara
custDA.Fill(custDS, BasicTableName)
CommonDataSet = custDS
Catch ex As Exception
Err.Raise(Err.Number)
MessageBox.Show(ErrStr, ErrStrCaption, MessageBoxButtons.OK, MessageBoxIcon.Warning)
CommonDataSet = Nothing
End Try
If SQLCon.State <> ConnectionState.Closed Then
SQLCon.Close()
SQLCon.Dispose()
End If
End Function
パラメータを設定する関数
上の関数の引数として設定したいのです ByVal CMDPara As SqlCommand の部分のパラメータとして
Private Function CommonPara(CMD As SqlCommand) As SqlCommand
CMD.Parameters.Clear()
CMD.Parameters.Add(New SqlParameter(パラメータ１の記述)
CMD.Parameters.Add(New SqlParameter(パラメータ２の記述)
CMD.Parameters.Add(New SqlParameter(パラメータ３の記述)
CommonPara = CMD
End Function
お世話になります。
VB.Net 駆け出しの者です。
SqlCommand を使いストアドプロシジャーを実行して戻り値を DateSet にするような関数はプログラムを作っていくと、かなり多数になるようになりました。接続文字列だったり、いろいろ同じような記述が続いているなと思っておりました。
そこで、以下のような関数を作り、この部分を使いまわせないものかと思っております。
ストアドプロシジャーの名前や、そのほか必要な部分の文字はすべて変数にして、なんとか使えないのかなと思っているのですが、問題なのは、パラメータの部分でうまくいかないのです。
パラメータの部分だけ別関数にして、なんとかねじこめないかなと思っているのですが・・・
そもそもこういうやり方が正しいのかどうかもわからないのですが、その辺りも含めご教授いただければ幸いでございます。
何卒よろしくお願いいたします。
Public Function CommonDataSet(ByVal NameStored As String, ByVal CMDPara As SqlCommand, ByVal BasicTableName As String, ByVal ErrStr As String, ByVal ErrStrCaption As String) As DataSet
Dim SQLCon As SqlConnection = New SqlConnection(CMO.GetConnectStrings())
Try
CMDPara = New SqlCommand(NameStored, SQLCon)
CMDPara.CommandType = CommandType.StoredProcedure
SQLCon.Open()
Dim custDA As SqlDataAdapter = New SqlDataAdapter
Dim custDS As DataSet = New DataSet
’この部分で下記の関数でパラメータを設定したいのですが、うまくいきません
custDA.SelectCommand = CMDPara
custDA.Fill(custDS, BasicTableName)
CommonDataSet = custDS
Catch ex As Exception
Err.Raise(Err.Number)
MessageBox.Show(ErrStr, ErrStrCaption, MessageBoxButtons.OK, MessageBoxIcon.Warning)
CommonDataSet = Nothing
End Try
If SQLCon.State <> ConnectionState.Closed Then
SQLCon.Close()
SQLCon.Dispose()
End If
End Function
パラメータを設定する関数
上の関数の引数として設定したいのです ByVal CMDPara As SqlCommand の部分のパラメータとして
Private Function CommonPara(CMD As SqlCommand) As SqlCommand
CMD.Parameters.Clear()
CMD.Parameters.Add(New SqlParameter(パラメータ１の記述)
CMD.Parameters.Add(New SqlParameter(パラメータ２の記述)
CMD.Parameters.Add(New SqlParameter(パラメータ３の記述)
CommonPara = CMD
End Function
お世話になります。
.Net 駆け出しの者です。
下記のような場合（全く違う記述でもいいです）、SQLDr("項目名")で値を取得できると思うのですが、直に項目名を書かず変数で値を取得したいのと、While と For Each 文なんかを組み合わせて全レコード、全フィールドの値を取得したいのです。
下記で言いますと例えば２レコード ３項目 合計で６つの値があるとすると
データ座標
1,1 が A
1,2 が B
1.3 が C
2,1 が D
2,2 が E
2,3 が F
結果的に
A,B,C
D,E,F
このような形でデータを取得したいのです
何卒よろしくお願いいたします。
Dim SQLCon As SqlConnection = New SqlConnection(接続文字列)
Dim SQLCmd As SqlCommand = New SqlCommand(SQL文, SQLCon)
SQLCon.Open()
Dim SQLDr As SqlDataReader = SQLCmd.ExecuteReader
Dim value As Boolean
value = SQLDr.HasRows 'True と仮定します
’***********************************************************
ここからが質問です。 SQLDr("項目名")と記述すれば値を取得することは
わかるのですが、
直に項目名を書かず編集ですべての値を取得する記述の仕方をお教えくださいませ。
たとえば
Dim Cnt as Integer = 0
Dim CntField as Integer = 0
While SQLDr.Read()
For Each o As Read In SQLDr.Read
こんな感じで全データを抽出したいのです
こんな記述はないと思いますが
SQLDr(CntField) 変数で値を取得したいのです
２つの変数の値が座標データ
SQLDr(CntField)が値データになります。
CntField = CntField + 1 'フィールドの位置
Next
Cnt = Cnt + 1 'レコードの位置
CntField = 1
End While
’***********************************************************
SQLDr.Close()
SQLCon.Close()
こんばんは
下記マクロで FNameというファイルのグラフの数を数えて名前を取得しGnameというファイル
に同名のシートを作成したいのですが
実行時エラー'9'、インデックスが有効範囲にありません.と出てしまいます。
どなたかご存知の方ご教示お願いいたします。
Workbooks(FName).Activate
For s = 1 To Charts.Count
Windows(GName).Activate
Worksheets.Add
ActiveSheet.Name = Charts(s).Name
Next s
