We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub RenameColumn() On Error GoTo RenameColumnErr Dim DSource As String DSource = gPathData$ & "\" & "ARSSL_DATA.mdb" Dim Cmd As New ADODB.Command Dim cnn As New ADODB.Connection Dim strSQL As String Dim strDBPath As String cnn.Mode = adModeReadWrite cnn.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB" strDBPath = DSource cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath Cmd.ActiveConnection = cnn Cmd.CommandType = adCmdText Dim chrTable As String Dim old_name As String Dim new_name As String chrTable = "TblWrittenPrem" old_name = "TbWrittenPremID" new_name = "TblwrittenPremID" strSQL = "ALTER TABLE " & Chr(39) & chrTable & Chr(39) & " RENAME COLUMN " & Chr(39) & old_name & Chr(39) & " to " & Chr(39) & new_name & Chr(39) & "; " Cmd.CommandText = strSQL Cmd.Execute cnn.Close Set Cmd = Nothing Set cnn = Nothing Exit Sub RenameColumnErr: Screen.MousePointer = vbDefault MsgBox Err.Description & " in RenameColumn procedure" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.