1

Access データベースにデータを保存するプログラムがあります。データベースに保存するためのコードは次のとおりです。

Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\phipnasw01\users-hip$\cerns1\My Documents\Visual Studio 2010\Projects\Forte Data Gatherer\Forte Data Gatherer\Example1.accdb"
Dim cnn As New OleDbConnection(ConnString)

'Getting the character count for all variables.
GlobalVariables.mdbProdDate = Mid(GlobalVariables.stAddRec, 2, 19)
GlobalVariables.mdbBaleLine = Mid(GlobalVariables.stAddRec, 21, 3)
GlobalVariables.mdbBaleNumber = Mid(GlobalVariables.stAddRec, 33, 12)
GlobalVariables.mdbGrossWeight = Mid(GlobalVariables.stAddRec, 46, 6)
GlobalVariables.mdbAirDry = Mid(GlobalVariables.stAddRec, 53, 7)
GlobalVariables.mdbInvoiceWeight = Mid(GlobalVariables.stAddRec, 60, 8)

cnn.Open()

'Naming the new Row in Query1.
Dim newQuery1Row As Example1DataSet1.Query1Row
newQuery1Row = Me.Example1DataSet1.Query1.NewQuery1Row()

'Making the first row the date.
newQuery1Row.ProdDate = GlobalVariables.mdbProdDate
newQuery1Row.BaleLine = GlobalVariables.mdbBaleLine
newQuery1Row.BaleNumber = GlobalVariables.mdbBaleNumber
newQuery1Row.GrossWeight = GlobalVariables.mdbGrossWeight
newQuery1Row.AirDry = GlobalVariables.mdbAirDry
newQuery1Row.InvoiceWeight = GlobalVariables.mdbInvoiceWeight

'Adding the row to the table.
Me.Example1DataSet1.Query1.Rows.Add(newQuery1Row)

cnn.Close()

'Saving the row in Access.
Me.Query1TableAdapter.Update(Me.Example1DataSet1.Query1)

コードの実行後、プログラムはファイルをアクセス データベースのデバッグ フォルダーのみに正しく保存します。C:\Forte\Example1.accdb のアクセス データベースに保存するデータベースが必要です。

4

1 に答える 1

0

Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=\\phipnasw01\users-hip$\cerns1\My Documents\Visual Studio 2010\Projects\Forte Data Gatherer\Forte Data Gatherer\Example1.accdb "

パスは接続文字列のすぐそこにあり、ハードコードされています。実行時にSaveFileDialogなどを使用して文字列を作成し、必要な場所に保存します。

于 2013-06-21T14:37:10.217 に答える