ＶＢ初心者です。よろしくお願いします。
visual basic2010expressにて作成してます
担当者の新規・更新のプログラムで テキストBOX（２）・LISTbox（１）・ボタンで構成されてます。
ＤＢを読み込み ＬＩＳＴＢＯＸに表示し
LISTBOXで セレクトされたものを テキストBOXに表示し 修正し
更新処理（ＤＢ更新・LISTBOX更新）をします。
新規の場合は テキストBOXに入力し 新規処理（ＤＢ追加・LISTBOX更新）をします。
ＤＢ更新迄はされるのですが リストボックスに反映されません。
再度 更新ボタンを押下すると 変更後の内容になります。
初心者の為 コードが分かりにくいと思いますがよろしくお願いします。
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊
LISTBOX_SET()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'＊＊＊＊＊＊＊＊＊＊新規登録＊＊＊＊＊＊＊＊＊＊
'データベース接続用オブジェクト生成
Try
Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TEST.mdb")
'開始
CON.Open()
Dim selectcommand As String = "INSERT INTO tantousya (ta_no, ta_mei) VALUES ('{0}', '{1}' );"
Using cmb As OleDbCommand = New OleDbCommand( String.Format( selectcommand, TextBox1.Text, TextBox2.Text), CON)
cmb.ExecuteNonQuery()
End Using
'＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊
LISTBOX_SET()
End Try
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
End
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
'＊＊＊＊＊＊＊＊＊＊変更登録＊＊＊＊＊＊＊＊＊＊
'データベース接続用オブジェクト生成
Try
Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TEST.mdb")
'開始
CON.Open()
Dim selectcommand As String = "UPDATE tantousya SET ta_mei = '{0}' WHERE ta_no = {1};"
Using cmb As OleDbCommand = New OleDbCommand( String.Format(selectcommand, TextBox2.Text, TextBox1.Text), CON)
cmb.ExecuteNonQuery()
End Using
'＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊
LISTBOX_SET()
End Try
End Sub
Private Sub LISTBOX_SET()
'＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊
'接続文字列
Dim i As Integer
'データベース接続用オブジェクト生成
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TEST.mdb")
Try
'開始
con.Open()
Dim SQLCom As OleDbCommand = con.CreateCommand
Dim selectcommand As String = "SELECT * FROM tantousya;"
Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectcommand, con)
Dim ds As DataSet = New DataSet()
'データーセット()
da.Fill(ds)
Dim LIST As List(Of String) = New List(Of String)
For i = 0 To ds.Tables(0).Rows.Count - 1
LIST.Add(ds.Tables(0).Rows(i)("ta_no") & ds.Tables(0).Rows(i)("ta_mei")
Next
ListBox1.DataSource = LIST ・・・・・・・・・＜ここのLISTの内容は変更になってます＞・・・
Finally
'データベース終了
con.Close()
End Try
End Sub
Private Sub ListBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
TextBox1.Text = MID(ListBox1.SelectedItem,1,2)
TextBox2.Text = MID(ListBox1.SelectedItem,3,10)
End Sub
クリスタルレポート初心者です。宜しくお願いします。
以下のソースでクリスタルレポートから印刷を行っていますが、最後にSQLSERVERのパスワード入力のダイアログが出てしまいます。
Dim cn As New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand
Dim oDataAdapter As New SqlClient.SqlDataAdapter
Dim oDataSet As DataSet = New DataSet
Dim oCryRepo As HIJYUU = New HIJYUU
cn.ConnectionString = "Server=192.168.1.1;Initial Catalog=TESTDB;ID=sa;Passworsd="pw001;"
cn.Open()
cmd.Connection = cn
cmd.CommandText = "select * from h_tbl where ndate='" & "20110715" & "'"
oDataAdapter.SelectCommand = cmd
oDataSet.Clear()
oDataAdapter.Fill(oDataSet, "H_TBL")
oCryRepo.SetDataSource(oDataSet)
crView.ReportSource = oCryRepo
cn.Close()
パスワード入力のダイアログを出さずに印刷する方法を教えていただきたいのですが。
その画面でパスワードを入力すれば正常に印刷されます。
環境はVB2005.NET、それにバンドルされているクリスタルレポート、sqlserver2008です。
以上、宜しくお願い致します。
SQL2005でクエリを走らせて調査したいので教えてください
●取引データ●
------------------------------
企業 取引開始日 取引終了日
------------------------------
A 20110610 20110612
A 20110701 20110710
B 20110401 20110403
B 20110408 20110421
B 20110701 20110701
とデータがあった場合、今回の取引開始日と前回の取引終了日を比較して3週間以内かどうかの調査をしたいのですが、クエリで一発で出す方法がないでしょうか？
検索して調査した結果、相関サブクエリで行えるのでは？？？と思い試しましたが構文がイケてないようで、思ったように出てきません。
相関サブクエリの意味があまり理解できないので助言をお願いいたします。
件数が多いので、とりあえずA企業だけでのクエリで走るかどうか調査したいので企業を限定しました
select d1.取引開始日, d1.取引終了日
from 取引データ as d1, 取引データ as d2
where
d1.企業 = 'A'
and
d2. 取引開始日 = (select min(d3.取引開始日)
from 取引データ as d3
where d3.取引開始日 > d1.取引終了日 + '21')
出力したい結果ですが
---------------------------------------------------
企業 取引開始日 取引終了日 ★経過日 ★3週間以上
---------------------------------------------------
A 20110610 20110612
A 20110701 20110710 18
B 20110401 20110403
B 20110408 20110421 5
B 20110701 20110701 70 ○
対処法をご教示いただきますようどうぞ宜しくお願いいたします。
したい事：エクセルからパワーポイントを作成したい
テキストボックスを作成
テキストボックスの文字を中央揃え←ここができないのです；；
すいません、色々試したのですが中央揃えができません、どなたかご指導して頂けないでしょうか？
↓途中までのソース
Sub PP作成_Click()
Dim app As Object
Dim pre As Object
Dim sld
Dim sh As Object
Set app = CreateObject("powerpoint.application")
app.Visible = True
' // PP を表示する
app.Visible = True
' // PP 新規プレゼンテーション作成
Set pre = app.Presentations.Add(WithWindow:=True)
' // PP 新規スライド挿入
Set sld = pre.Slides.Add(Index:=1, Layout:=12)
Set sh = sld.Shapes.AddTextbox(msoTextOrientationHorizontal _
, 100, 100, 200, 50)
With sh.TextFrame.TextRange
.Text = "テスト"
.Font.Size = 100
.Font.Name = "HGP創英角ゴシックUB"
End With
End Sub
ＡTBLからＢTBLへのINSERT時発番を行いたい
＜環境＞
SQLSERVER 2008
＜ＡTBL＞
CD varchar(3) KEY
NO int KEY
NAME varchar(10)
＜ＢTBL＞
CD varchar(3) KEY
NO int KEY
NAME varchar(10)
＜ＢTBLのデータ＞
CD NO NAME
001 1 太郎
001 3 次郎
001 5 三郎
ＢTBLをＡTBLへINSERTしたいのですが、この時、NOを１から再付番したいのです。
INSERTクエリで一発で更新できますでしょうか？
ご教授お願いします。
