|
|
|
| Чтобы определить имя колонки DataGrid? в которой в данный момент произошло событие применяю следующий код - может можно как то проще???
If Me!DataGrid1.Columns(Me!DataGrid1.Col).Caption = ("Кол.(текущее)") Then | |
|
| |
|
|
|
| И второй геморой
Для того что бы данные, вводимые в datagrid - сразу попадали в таблицу, по мере их ввода, придумал такую фигню
Private Sub DataGrid1_Change()
Dim str As Variant
str = NZVB(Me!DataGrid1.Text)
Me!Adodc1.Recordset.MoveNext
Me!Adodc1.Recordset.MovePrevious
Me!DataGrid1.Text = str
Me!DataGrid1.SelStart = Len(Me!DataGrid1.Text) + 1
End Sub
|
Иначе приходится вручную переходить мышкой или стрелками на другую запись - для закрепления (передачи данных в таблицу источник данных)
Может есть иной способ??? | |
|
| |
|
|
|
| чё та ответов не много......
=========================
а вот класный Grid - блинннннннннннннннн
http://www.youtube.com/watch?v=9skWodrQE2s | |
|
| |
|
|
|
| Скажите , час, судя по DataGrid Вы с visual studio дело имеете.? Вы где информацию брали по данному вопросу? | |
|
| |
|
|
|
| Не совсем так , Едрёныч
Я на VB6 С час создаю программки...
А Вас какая информация интересует??? | |
|
| |
|
|
|
| Да меня много чего интересует, тк в данном вопросе почти ничего не знаю. В аксесе всё более менее понятно, удобно и привычно, а если с базой постоянно будут работать несколько людей и её объём большой и постоянно увеличивается, то SQL Server получше. Вопрос следующий: Вы делали Windows Forms и привязывали ли их к базам данных? К аксесу, например, или к SQL серверу. Насколько это удобно? Или очень сложно? | |
|
| |
|
|
|
| Как те сказать - про сложно....
Пока не знаешь чё к чему - дремучий лес...
Как только начал потихоньку по немногу, где по многу - и попёрло
Аналогично освоению любого нового
==================================
В работе использую mdb базы и программу на vb6
Доступ к данным через ADO посредством подключения через строку подключения например:
Public GLB_CONNECTION As ADODB.Connection ' подключение к базе таблиц
Public GLB_PATCH_CONNECTION As String ' полный путь к таблицам
Set GLB_CONNECTION = New ADODB.Connection
GLB_CONNECTION.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:" _
& "Database Password=My_parol;Data Source=" & GLB_PATCH_CONNECTION
поработали
GLB_CONNECTION.Close
Set GLB_CONNECTION = Nothing
|
| |
|
| |
|
|
|
| Насчёт поработали
'Dim rst As ADODB.Recordset
'
'Set rst = New ADODB.Recordset
'
'rst.Open "SELECT COMPONENT_TBL.* From COMPONENT_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
'
'If rst.RecordCount <> 0 Then
' Do While Not rst.EOF '
'rst("")=""
'
' rst.MoveNext
' Loop
'End If
|
| |
|
| |
|
|
|
| Вот собсно и сё
Всё в таком духе
Запросами решаются часть вопросов
Другая часть иными рекордсетами....
Всё почти как в access , но из вне...
Собственно и access не нужен только сам файл.exe - это плюс
C отчётами вот тока проблемака надо выводить куда умеешь
начиная с простых текстовых файлов и кончая - куда придётся | |
|
| |
|
|
|
| Час, не вводи человека в заблуждение. Он про WinForms VisualStudio у тебю спрашивает, а ты ему про VB6
2: Едрёныч
Привязаться к данным в WinForms проще, чем 2 пальца об асфальт.
Например можно так.
Imports System.Drawing
Imports System.Data.SqlClient.SqlConnectionStringBuilder
Imports System.Data.SqlClient
Imports System.Windows.Forms.Form
Imports System.Data
Imports System.Data.DataSet
Imports System.Windows.Forms.Cursor
..............................................................................
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strSQL1 As String
Dim conn1 As New SqlConnectionStringBuilder()
conn1.DataSource = "I-SERVER-TWO"
conn1.InitialCatalog = "MogJilDom"
conn1.IntegratedSecurity = True
Using cn1 As New SqlConnection(conn1.ConnectionString)
cn1.Open()
strSQL1 = " SELECT * FROM TblDol "
Dim da2 As New SqlDataAdapter(strSQL1, cn1)
Dim ds2 As New DataSet()
da2.Fill(ds2, "TblDol")
With ds2
Me.ComboBox1.DataSource = .Tables("TblDol")
Me.ComboBox1.DisplayMember = "NaimDol"
Me.ComboBox1.ValueMember = "IdDol"
End With
End Using
End Sub
|
По поводу литературы - хорошо описана работа с базами данных у Дэвидв Сеппы "Программирвание на Microsoft ADO.NET 2.0"
ЗЫ
Етот пример хоть и рабочий, но не совсем правильно так делать.
Вааще-то правильней подключение прописывать в отдельных классах. | |
|
| |
|
|
|
| Извини, я и говорю про VB6 я оного пердупредил давиче | |
|
| |
|
|
|
| Спасибо за помощь, буду изучать. | |
|
| |
|
|
|
| как | |
|
| |
|
|
|
| Всё очень просто:
Необходимо создать запрос с условием поиска из таблицы параметры услуги по полю "УСЛУГА"
Этот запрос будет источником данных для ADODC
Datagrid связан с ADODC и отобразит то, что Вам необходимо.
==============Всё это вешаем на клик по Combobox | |
|
| |
|
|
|
| подскажите если у меня создан проект,а я забыла приветственную форму как ее сделать | |
|
| |
|
|
|
| Оч просто открываем в меню(кнопки наверху)
Проект (Project)
В самом низу Имя проекта и слово свойства.
В правом комбобоксе форму, которая при запуске проекта отобразиться автоматом.
==================================================================
Это в VB6
А если в Access - тогда
сервис =>параметры запуска -> форма
=====================================================================
илли Вы имелли ввиду нечто другое? http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/VBA/247.mspx | |
|
| |
|
|
|
| спасибки) | |
|
| |