VB.NET
1コード 2```Dim rs As New System.IO.StringReader(Label1.Text) 3 4 Dim stresult As String = String.Empty 5 '端末まで繰り返す 6 While rs.Peek() > -1 7 'rs.ReadLine() 8 9 Dim x As String = rs.ReadLine 10 11 12 Dim 分解() As String = x.Split(","c) 13 14 For Each c In 分解 15 Console.WriteLine(c) 16 Next 17 Console.WriteLine(分解.Length) 18 End While 19 20 rs.Close() 21 22 'データベースに接続する設定をプロパティにセット 23 cn.ConnectionString = "Data Source=PALNET-D07\SQL2017;Initial Catalog=TestDB;User ID=sa;Password=''" 24 25 '入力チェック 26 If (Label1.Text.Length = 0) Then 27 MsgBox("データ異常") 28 Exit Sub 29 End If 30 31 'トランザクション開始 32 cn.BeginTrans() 33 34 35 36 '個人情報テーブルからデータ取得 37 38 cn._Select("select * from 個人情報 order by no") 39 40 41 'レコードが無くなるまで繰り返す 42 Do Until cn.EOF 43 44label1.textの内容を1行ずつ抜き出し変数xに入れ変数xをカンマで区切りそのデータを変数分解の動的配列に入れました 45その後に変数分解の配列をもとにデータベースに登録したいです 46 47```VB.NET 48コード
'NOの取得 cn.Value("NO") &= "NO" '氏名の取得 cn.Value("氏名") &= "氏名" 'カナの取得 cn.Value("カナ") &= "カナ" '生年月日の取得 cn.Value("生年月日") &= "生年月日" '性別 cn.Value("性別") &= "性別" Label1.Text &= vbCrLf
このコードを書いてデータベースに登録させようとしているのですが、登録されていません
変数の配列をデータベースに登録の仕方を教えていただきたいです
あなたの回答
tips
プレビュー