×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
SQL sarverのログに、
「データベース'データベース名'のファイル'ファイル名'自動拡張が取り消されたか、36000ミリ秒後にタイムアウトしました。地さな値の FILEGROWHTを設定するか、別サイズを設定するにはALTER DATABASEを使用してください。」
とのメッセージ。
管理領域を広げる必要が出た場合に、広げる処理を行っている最中にタイムアウトしたということらしい。
一番でかいファイルをコピーして無理やり拡張、プログラムで設定されたタイムアウトを回避しつつ、領域を広げることができきた。
これはこれでありかもしれない。
「データベース'データベース名'のファイル'ファイル名'自動拡張が取り消されたか、36000ミリ秒後にタイムアウトしました。地さな値の FILEGROWHTを設定するか、別サイズを設定するにはALTER DATABASEを使用してください。」
とのメッセージ。
管理領域を広げる必要が出た場合に、広げる処理を行っている最中にタイムアウトしたということらしい。
一番でかいファイルをコピーして無理やり拡張、プログラムで設定されたタイムアウトを回避しつつ、領域を広げることができきた。
これはこれでありかもしれない。
PR
'SQL接続
Dim DB As DAO.Database, RS As DAO.Recordset
Dim fittext As String, fitresult As String
Dim xSQL As String
'DB設定
Set DB = CurrentDb
'Set rs = db.OpenRecordset("メーカー着", dbOpenDynaset)
Set RS = DB.OpenRecordset("SELECT * FROM TB1 WHERE バーコード = """ & Me!テキスト0.Text & """")
Dim DB As DAO.Database, RS As DAO.Recordset
Dim fittext As String, fitresult As String
Dim xSQL As String
'DB設定
Set DB = CurrentDb
'Set rs = db.OpenRecordset("メーカー着", dbOpenDynaset)
Set RS = DB.OpenRecordset("SELECT * FROM TB1 WHERE バーコード = """ & Me!テキスト0.Text & """")
Private Sub コマンド31_Click()
DoCmd.SetWarnings False '警告メッセージ停止
DoCmd.OpenQuery "更新クエリ名" '更新クエリを実行
DoCmd.SetWarnings True '警告メッセージ停止
End Sub
DoCmd.SetWarnings False '警告メッセージ停止
DoCmd.OpenQuery "更新クエリ名" '更新クエリを実行
DoCmd.SetWarnings True '警告メッセージ停止
End Sub