Открыл новый проект,
как то подключился к базе данных ms access (xxxx.mdb)
а где тута формы создавать?
а где тута код писать?

вот создал подключение к базе access
, a aформу этому всему добавить не удаётся...
запросы пожалуйста можно, а добавить новый элемент - чего тока нет (форм нет)

Вот начинаю новый проект
Создать проект...
типы проектов
проекты VB
среди них приложение Windows
ASP.net
ASp.net
консольное приложение
а где тут ADO.NET
может что-то надо внастройках подключить или...
подскажите кто знает.

Осака Вестингаузсоздать Windows или Web приложение
add new item - Form
на форме контролы (например грид)
и к гриду уже подсоединять ADO.Net компоненты (DataSet и DataAdapter'ы)
(например грид) - это dataGrid ?
dataSet- размещаем на форме , там нетипизированая выбираем.
Затем в свойствах dataSet находим tables? лколекция и что-же тута можно добавить и зачем?
Какой-то член группы Table1.?

ADO.NET это технология доступа к данным а не приложение
она может использоваться как и в веб так и в вин
Спасибо, понял, как и раньше DAO ADO - технология доступа к данным.

Пытаюсь подключится к базе Данных MS Access
baza2007.mdb
две таблицы d2007 и k2007
один ко многим
ничего не выходит...
Кто нибудь реально может помочь?
таскаю эти дата адаптеры двтв сеты.
поэтапно может кто провести.?
как начать...с чего
1 Создал проект
2
3
4
5

Чудесно...
Правда много непонятных слов - (не русских), а так интересно.
Я прогпаммно создал соединение с базой...
но вот дальше... как работать с таблицами
может кто подскажет...

Спасибо

Я с базой, родом из Access работаю,
а эти имена какие-то SQLевские - это не важно?

спасибо за помощь..
буду ёрзать т.е. юзать
хотя понятия не имею кудаюзнуть, думал на форуме помогут кусочками и строчками от кода дык чёйта никака.

winsky! час58Я с базой, родом из Access работаю,
а эти имена какие-то SQLевские - это не важно?
чего?
имена чего?
Пытаюсь подключится к базе Данных MS Access
baza2007.mdb
две таблицы d2007 и k2007
один ко многим
ничего не выходит...
Кто нибудь реально может помочь?
таскаю эти дата адаптеры двтв сеты.
поэтапно может кто провести.?
как начать...с чего
1 Создал проект
2
3
4
5

книжки я накачал
везде про SQL и про Console.WriteLine.
А у меня приложение windows и форма с полями
и не пойму как grid туда рилепить вернее прилепить понятно как а как пользоваться не понятно...
нашёл статью подсоединил базу а как ею пользоваться не знаю.
Даются советы возьми oledbconection
а за что его взять не говорят ни строчки кода...
кого как берут никак не пойму.
пишу какую-то фигню не зная ..

Dim FRM As Form1
Dim dbreader As OleDbDataReader
Dim dbCmd As OleDbCommand = New OleDbCommand("SELECT NOMER FORM dog2007")
dbCmd.Connection = AccessConnection

dbreader = dbCmd.ExecuteNonQuery(.........) tута stop говорят что-то не то
dbreader.Read()
FRM.TextBox1.Text = dbreader.GetString(0)

AlexITAccessConnection... можно посмотреть ConnectionString?

открывать соединение AccessConnection со своими параметрами пробовали? работает?
нет не пробовал т.к. только вторую неделю изучаю VB и многое мне здесь неизвестно...
В частности о параметрах я ещё не задумывался...

Да нет никаких паролей просьо все коды дома, а я на работе...
строкаПодключения = тип,провайдер,пароль,юзер, нет на память я не помню...:-(

код модуля
'Подключаем классы System,OLEDB
Imports System
Imports System.Data.OleDb
'Imports ADOX


Module AConnectionsModule

'Dim cat As New Catalog 'Imports ADOX
'Dim tbl As New Table 'Imports ADOX
Public AccessConnection As OleDbConnection 'Imports System.Data.OleDb


Public Function StringConnectToBDAccess(ByVal tProvider As String, ByVal tUserID As String, ByVal tPassword As String, ByVal tDataSource As String, ByVal tMode As String) As String
'Формируем строку соединения с Access
StringConnectToBDAccess = "Provider=" & tProvider & ";" & _
"User ID=" & tUserID & ";" & _
"Password=" & tPassword & ";" & _
"Data Source=" & tDataSource & ";" & _
"Mode=" & tMode & ";"
End Function
Public Function ConnectToBDAccess(ByVal MyConnectionString As String, ByRef StatusConnection As String) As Boolean
'Обработка исключения
Try
'Создадим
AccessConnection = New OleDbConnection(MyConnectionString)
'Открываем БД
AccessConnection.Open()
'Статус соединения
StatusConnection = "Connection State::" & AccessConnection.State.ToString
'Возврат положительного результата
ConnectToBDAccess = True

'Исключение OLEDB
Catch MyOdbcException As OleDbException
'Статус соединения (сообщение об ошибке)
StatusConnection = MyOdbcException.ToString
'Возврат отрицательного результата
ConnectToBDAccess = False

'Исключение по ошибок программы
Catch MyException As Exception
'Статус соединения (сообщение об ошибке)
StatusConnection = MyException.ToString
'Возврат отрицательного результата
ConnectToBDAccess = False

End Try
End Function

кнопка на форме - создать строку соединения и передать её
Private Sub btnConnectionSTRingToAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectionSTRingToAccess.Click

'Формируем строку соединения и записывем её в txtboxConnectionString на форме
txtboxConnectionSTRing.Text = StringConnectToBDAccess(txtboxProviderToAccess.Text, txtboxUserToAccess.Text, txtboxPassToAccess.Text, txtboxPathToAccess.Text, txtboxAccessToAccess.Text)
End Sub

кнопка на форме - проверить соединение

Private Sub btnTestToAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestToAccess.Click

'Эта строка - статус подключения
Dim StatusConnection As String
'Соединимся и получим результат
If ConnectToBDAccess(txtboxConnectionSTRing.Text, StatusConnection) = True Then
'Соединение прошло удачно
MsgBox("Соединение прошло удачно. Тест выполнен. Строка состояния: " & StatusConnection)

Else
'Соединение не осущесвилось
MsgBox("Соединение не осущесвилось! Строка состояния: " & StatusConnection)
End If
Me.состояние.Text = StatusConnection
End Sub

всегда выдаёт 'Соединение прошло удачно'

теперь я пытаюсь как-то считать данные из таблицы базы - "dog2007"
Public Sub iz_ltablici()
Dim FRM As Form1
Dim dbreader As OleDbDataReader
Dim dbCmd As OleDbCommand ' = New OleDbCommand("SELECT NOMER FORM dog2007")
dbCmd.Connection = AccessConnection
' и вот тут у меня ошибка vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
dbreader = dbCmd.ExecuteNonQuery("SELECT NOMER FORM dog2007")
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
dbreader.Read()
FRM.TextBox1.Text = dbreader.GetString(0)
End Sub

все примеры в книжке приведены для работы в консольном режиме.
А мне это трудно переложить на WINприложение...

Да? ....!

я извиняюсь, видимо я не правильно выразился...
хотел сказать- вот ведь как, а я и не заметил ошибку - то..., но написал сокращённо...Дааа?

Выписал ещё книжку и снова незадача...
все примеры на языке C#, а я его в глаза не видел...
я всегда на vb да vba писал...
пока в конструкторе всё понятно , а как тока код, то не всегда бесик понимает меня...
вот к примеру проверяем вносились ли изменения в набор данных ds1
в учебнике написано на C#
If (Ds1.HasChanges())
DataTable dtDelChild = Ds1.Prep.GetChanges(DataRowState.Deleted)
dtDelChild- что это? Спрашивает бесик... , а я и сам не знаю что это.
DataTable - и это что это? Данные таблицы...

попробовал так
If Ds1.HasChanges() Then DataTable(dtDelChild = Ds1.Prep.GetChanges(DataRowState.Deleted))
DataTable(dtDelChild - не поняли друг друга...

<<Для профессионалов>>???
Я читаю сейчас книгу для чайников...:-)

А что-же в C# переменные и объекты объявляются по ходу...
без ключевого слова (dim, let, set)???

hDrummerМодератор: Топик пока не закрываю, но он уже на грани.
Хорошо...
Тема пррикрыта... ' Книгу С. Малик скачал ( PDF ).Спасибо за совет.

Извините, не удержался...
Вот что у меня вышло в финале...
в форме_№2


Private Sub dog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As DataSet
Dim Ad As OleDb.OleDbDataAdapter
ds = New DataSet
Me.DG_dog.DataSource = ds
Try
Comm = New OleDb.OleDbCommand("SELECT * FROM DOG2007", AccessConnection)
Comm.Connection = AccessConnection
Ad = New OleDb.OleDbDataAdapter
Ad.SelectCommand = Comm
Ad.Fill(ds, "DOG2007")
Me.DG_dog.DataMember = ds.Tables("DOG2007").TableName
AccessConnection.Close()
AccessConnection.Dispose()
Comm.Dispose()
ds.Dispose()
Catch ex As Exception
MsgBox("ошибочка - >" & ex.Message)

End Try
End Sub