VBNet - Форум

Вопрос: Access Добавлено: 23.09.09 11:25

Автор вопроса: G.Andrey Denisov

В access есть таблица
ID_Box; BoxName; Ports
(имя коробки, кол-во портов в ней)
1. Как к VBA access'a присвоить какой-либо переменной значение из определенной ячейки этой базы?
Или по другому: как выполнить sql запрос(на vb) и результат загнать в переменную?
Это необходимо для решения следующей задачи:

2. Создать новую таблицу.
ID_Port; ID_Box; Port; PortName
(ссылка на коробку, номер порта, пустое поле)

где будут перечислены все коробки(ID) и все порты(начиная с 0) к каждой(в зависимости от кол-ва портов у каждой коробки)

Просто неохота вручную забивать эту табличку(много работы)
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: G.Andrey Denisov Вопросов: 2 Ответов: 3	Профиль \| \| #1	Добавлено: 28.09.09 09:29
	Никто не ответил, но решение найдено. Как выполнить sql-запрос и решение загнать а перемнную? Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT ..." VarIDBox2 = rs.Fields("Id_Box".Value Как создать таблицу? Set db = CurrentDb db.Execute "CREATE TABLE Ports(ID_Port COUNTER, ID_Box INT, ID_Plint INT, Port INT, Info TEXT, Route INT)" Как вставить запись? Set db = CurrentDb db.Execute "INSERT INTO Ports (ID_Box, ID_Plint, Port) VALUES (" & ID_Box & ", " & ID_Plint & ", " & i & ";" Может еще кому поможет Ответить

Номер ответа: 2 Автор ответа: G.Andrey Denisov Вопросов: 2 Ответов: 3	Профиль \| \| #2	Добавлено: 28.09.09 09:31
	Никто не ответил, но решение найдено. Как выполнить sql-запрос и решение загнать а перемнную? Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT ...";) VarIDBox2 = rs.Fields("Id_Box";).Value Как создать таблицу? Set db = CurrentDb db.Execute "CREATE TABLE Ports(ID_Port COUNTER, ID_Box INT, ID_Plint INT, Port INT, Info TEXT, Route INT)" Как вставить запись? Set db = CurrentDb db.Execute "INSERT INTO Ports (ID_Box, ID_Plint, Port) VALUES (" & ID_Box & ", " & ID_Plint & ", " & i & ";);" Может еще кому поможет Ответить

Страница: 1 |