Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Базы данных Добавлено: 01.04.03 11:17  

Автор вопроса:  Tank
Как то очень давно работал с Access, в памяти остались всякие запросы на SQL, а как их в VB запускать, я имею ввиду запрос на добавление, изменение, в Access была такая команда RunSQL, а тут как? Если можно примерчик! Буду признателен (О как загнул!)!

Ответить

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

Номер ответа: 1
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
  Профиль | | #1 Добавлено: 01.04.03 12:15

Dim adoPrimaryRS As Recordset
Dim db As Connection

 Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\basa.mdb;"
  Set adoPrimaryRS = New Recordset

adoPrimaryRS3.Open "select * from PROD", db, adOpenStatic, adLockOptimistic

db.Execute "INSERT INTO NAKLAD (DATA, ID_TOV, KOL, CENA_1, CENA_ALL, ID_KLIENT) values (" & _
'DATAN & ", " & Combo2.ItemData(Combo2.ListIndex) & ", " & txtKOL.Text & ", " & _
'txtC1 & ", " & txtC_ALL & ", " & Combo1.ItemData(Combo1.ListIndex) & ")"'

Пример из своей программы, лишнее убери.

 

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам