QA@IT
«質問へ戻る

0
本文
 初めて質問させていただきます。VB初心者です。
 
-今までAccessにてADODBでSQLサーバーに接続して使用していましたが、ACCESS2013のプロジェクト廃止によりVB2015に変更しようとしていますが、データーバースへの書き込み方法が判りません。
-どなたか宜しくお願い致します。
-
-今までのACCESS VBでは、登録ボタンの処理を
-
-' データベース接続
-Dim CNN1 As ADODB.Connection
-Set CNN1 = CurrentProject.Connection
-Dim TB1 As ADODB.Recordset
-Set TB1 = New ADODB.Recordset
-Dim CNN2 As ADODB.Connection
-Set CNN2 = CurrentProject.Connection
-Dim TB2 As ADODB.Recordset
-Set TB2 = New ADODB.Recordset
-    
-
-' 注文番号のカウントアップ
-Dim x As Long
-TB2.Open "select * from SF_設定ファイル", CNN2, adOpenKeyset, adLockOptimistic
-x = TB2!注文番号 + 1
-TB2!注文番号 = x
-TB2.Update
-TB2.Close
-CNN2.Close
-
-'ファイル、データを追加する。
-TB1.Open "DF_注文管理", CNN1, adOpenDynamic, adLockOptimistic
-
-With TB1
-.AddNew
-
-!注文番号 = x
-!日付 = Me!日付
-!品名 = Me!品名
-!数量 = Me!数量
-!担当者名 = Me!担当者名
-    
-.Update
-End With
-
-としていました。宜しくお願いします。

VB2015からSQL Server2008へのデータ追加について

初めて質問させていただきます。VB初心者です。

初めて質問させていただきます。VB初心者です。

質問を投稿

VB2015からSQL Server2008へのデータ追加について

初めて質問させていただきます。VB初心者です。

今までAccessにてADODBでSQLサーバーに接続して使用していましたが、ACCESS2013のプロジェクト廃止によりVB2015に変更しようとしていますが、データーバースへの書き込み方法が判りません。
どなたか宜しくお願い致します。

今までのACCESS VBでは、登録ボタンの処理を

' データベース接続
Dim CNN1 As ADODB.Connection
Set CNN1 = CurrentProject.Connection
Dim TB1 As ADODB.Recordset
Set TB1 = New ADODB.Recordset
Dim CNN2 As ADODB.Connection
Set CNN2 = CurrentProject.Connection
Dim TB2 As ADODB.Recordset
Set TB2 = New ADODB.Recordset

' 注文番号のカウントアップ
Dim x As Long
TB2.Open "select * from SF_設定ファイル", CNN2, adOpenKeyset, adLockOptimistic
x = TB2!注文番号 + 1
TB2!注文番号 = x
TB2.Update
TB2.Close
CNN2.Close

'ファイル、データを追加する。
TB1.Open "DF_注文管理", CNN1, adOpenDynamic, adLockOptimistic

With TB1
.AddNew

!注文番号 = x
!日付 = Me!日付
!品名 = Me!品名
!数量 = Me!数量
!担当者名 = Me!担当者名

.Update
End With

としていました。宜しくお願いします。

初めて質問させていただきます。VB初心者です。

今までAccessにてADODBでSQLサーバーに接続して使用していましたが、ACCESS2013のプロジェクト廃止によりVB2015に変更しようとしていますが、データーバースへの書き込み方法が判りません。
どなたか宜しくお願い致します。

今までのACCESS VBでは、登録ボタンの処理を

' データベース接続
Dim CNN1 As ADODB.Connection
Set CNN1 = CurrentProject.Connection
Dim TB1 As ADODB.Recordset
Set TB1 = New ADODB.Recordset
Dim CNN2 As ADODB.Connection
Set CNN2 = CurrentProject.Connection
Dim TB2 As ADODB.Recordset
Set TB2 = New ADODB.Recordset
    

' 注文番号のカウントアップ
Dim x As Long
TB2.Open "select * from SF_設定ファイル", CNN2, adOpenKeyset, adLockOptimistic
x = TB2!注文番号 + 1
TB2!注文番号 = x
TB2.Update
TB2.Close
CNN2.Close

'ファイル、データを追加する。
TB1.Open "DF_注文管理", CNN1, adOpenDynamic, adLockOptimistic

With TB1
.AddNew

!注文番号 = x
!日付 = Me!日付
!品名 = Me!品名
!数量 = Me!数量
!担当者名 = Me!担当者名
    
.Update
End With

としていました。宜しくお願いします。