powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM [игнор отключен] [закрыт для гостей] / VB.Net + MS Access
6 сообщений из 6, страница 1 из 1
VB.Net + MS Access
    #36770282
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем доброго времени !
Никак не удается получить ID добавленной записи в таблицу аксеса.
ID - AutoNumder поле в таблице.
Никто кусочком кода не поделиться ?
...
Рейтинг: 0 / 0
VB.Net + MS Access
    #36771252
няка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
by-pass,

вы бы привели свои попытки, а тут бы подсказали уже куда копать
а так долго будете сидеть ждать погоды у моря
...
Рейтинг: 0 / 0
VB.Net + MS Access
    #36771316
Курдль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
by-pass,
А этого может и не произойти!
Если у приличных БД, типа оракла, DB2 и т.п. есть последовательности или генераторы для формирования ID, у неприличных, типа MS SQL Server, есть (совсем недавно появилась) функция ScopeIdentity, то у MS Access вообще может не быть ничего похожего.
...
Рейтинг: 0 / 0
VB.Net + MS Access
    #36771484
VitaliyBoris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
На шарпе правда...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
using (OleDbConnection cn = new OleDbConnection(ConnectionString))
{
OleDbCommand cmd = new OleDbCommand("INSERT INTO бла-бла", cn);
cmd.Parameters.Add("@типа параметр", OleDbType.VarChar).Value = что-то там;
OleDbCommand idCmd = new OleDbCommand("SELECT @@IDENTITY", cn);
cn.Open();
int ret = cmd.ExecuteNonQuery();
if (ret != 1) return 0;
return (int) idCmd.ExecuteScalar();
}
...
Рейтинг: 0 / 0
VB.Net + MS Access
    #36771495
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Извлечение значений идентификаторов или автонумерации (ADO.NET) , если ваша версия акцесса не знает про идентити... лочим таблицу и берем max.
...
Рейтинг: 0 / 0
VB.Net + MS Access
    #36772060
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да код в общем-то простой
коннектион открыт, данные постятся в таблицу нормально

вариант 1
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
        Dim cmd As New OleDbCommand
        Dim dr As OleDbDataReader
        
        cmd.CommandText = "insert into tblPP (Nam, [Date]) values ('test2', '02.08.2010')"
        cmd.CommandType = CommandType.TableDirect
        cmd.Connection = cnn
        dr = cmd.ExecuteReader
        dr.Read()

вариант 2
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
        Dim dr As OleDbDataReader
        Dim da As New OleDbDataAdapter("select * from tblPP", cnn)

        da.InsertCommand = New Global.System.Data.OleDb.OleDbCommand
        da.InsertCommand.CommandText = "insert into tblPP (Nam, [Date]) values ('test2', '02.08.2010')"
        da.InsertCommand.Connection = cnn
        dr = da.InsertCommand.ExecuteReader()
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM [игнор отключен] [закрыт для гостей] / VB.Net + MS Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]