Копирование таблицы в базе Access с изменением имени

@zhigalkin_p · Регистрация: 26.10.2017

Author24 — интернет-сервис помощи студентам

Доброго времени суток, уважаемые форумчане!
Очень наболел вопрос: Как при создании копии таблицы в базе Access сделать так, чтобы оно бралось хотя бы из TextBox?
Хотя в идеале мне нужно, чтобы имя бралось из ini файла
[DATE]
Now=07.08.2018

Если делать копию и задавать имя постоянным:

VB.NET

1	SqlCom = New OleDb.OleDbCommand("SELECT * INTO Proj_copy FROM Proj", Con) 'Рабочий код

то проблем нет.

Но надо, чтобы вместо Proj_copy имя бралось из ini-файла, или на худой конец из TextBox (в TextBox запихнуть значение 07.08.2018 гораздо легче).
Пытался делать так:

VB.NET

1	SqlCom = New OleDb.OleDbCommand("SELECT * INTO '" & DateTimePicker1.Value.ToString("ddMMyyyy") & "' FROM Proj", Con)

Брал значение напрямую с DateTimePicker.
и так:

VB.NET

1	SqlCom = New OleDb.OleDbCommand("SELECT * INTO '" & DateTimePicker1.Value & "' FROM Proj", Con)

и так:

VB.NET

1	Dim SqlCom As New OleDb.OleDbCommand("SELECT * INTO '" & TextBoxMon.Text & "' FROM Proj", Con)

во всех случаях выдает ошибки.

А если считывать с ini-файла

VB.NET

1	d = GetPrivateProfileString("DATE", "Now", "", rc, 255, "" & My.Application.Info.DirectoryPath & "\Topoved.ini")

то если в имя подставляем d - также выдает "System.Data.OleDb.OleDbException: "Синтаксическая ошибка в запросе. Неполное предложение запроса.". При подстановке rc (данных из буфера) - тоже ошибка.

Вопрос: подскажите в каком направлении копать? Как задать имя скопированной таблицы из DateTimePicker, TextBox и ini-файла?

P.S. До этого писал на VBA, теперь хочу свою программу сделать "отдельной", буду рад любой помощи.

@ovva · 16.08.2018, 13:30

Попробуйте так

VB.NET

1
2
3

Dim dat As Date = Now
Dim str As String = dat.ToShortDateString.Replace(".", "_")
Dim SqlCom As New OleDb.OleDbCommand("SELECT * INTO " & str & " FROM Proj", con)

@OwenGlendower · 16.08.2018, 13:31

zhigalkin_p, попробуй заключить имя таблицы в квадратные скобки

VB.NET

1	SqlCom = New OleDb.OleDbCommand("SELECT * INTO [" & DateTimePicker1.Value.ToString("ddMMyyyy") & "] FROM Proj", Con)

@ovva · 16.08.2018, 13:49

Если таблиц предполагается много то, на мой взгляд, имена удобнее формировать так

VB.NET

1	Dim str As String = dat.Year & "_" & dat.Month & "_" & dat.Day

Это позволит быстрее ориентироваться в таблицах (при сортировке все таблицы с одним годом (месяцем) будут в одном месте).

@zhigalkin_p · 16.08.2018, 21:35 **[ТС]**

Спасибо всем кто ответил. Решил зайти с другой стороны, пришлось создавать таблицу "на лету". Вот рабочий код

VB.NET

Function CreateTable() 'Создаем новую таблицу
        Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Pth & "\" & ComboBox1.Text & ".asm" & "\Maindb.tdb") ' Переменная для подключения базы (имена папок в директории) с именем из ComboBox1 с фильтром .asm
        'Dim SqlCom As New OleDb.OleDbCommand("CREATE TABLE " & TextBoxSeason.Text & " (Date Date, Profil Integer, PK_from Integer, PK_to Integer, Shirina Integer, Dlina Integer, Vizirka Text)", Con)  'Рабочий код
        Dim SqlCom As New OleDb.OleDbCommand("CREATE TABLE " & DateTimePicker1.Value.ToString("yyyyMMdd") & " (Id Counter, Dat Date, Profil Integer, PK_from Integer, PK_to Integer, Shirina Integer, Dlina Integer, Vizirka Text)", Con)  'Рабочий код
        On Error Resume Next 'Если ошибка идем мимо
        Con.Open()
        SqlCom.ExecuteNonQuery()
        Con.Close()
    End Function

Где

VB.NET

& Pth &

путь к папке, где лежит exe-шник.

	16.08.2018, 21:35