Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: DataGrid
 
 автор: час   (27.01.2010 в 13:10)   личное сообщение
 
 

Чтобы определить имя колонки DataGrid? в которой в данный момент произошло событие применяю следующий код - может можно как то проще???

If Me!DataGrid1.Columns(Me!DataGrid1.Col).Caption = ("Кол.(текущее)") Then

  Ответить  
 
 автор: час   (27.01.2010 в 13:19)   личное сообщение
 
 

И второй геморой
Для того что бы данные, вводимые в 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

Иначе приходится вручную переходить мышкой или стрелками на другую запись - для закрепления (передачи данных в таблицу источник данных)

Может есть иной способ???

  Ответить  
 
 автор: час   (29.01.2010 в 14:37)   личное сообщение
 
 

чё та ответов не много......
=========================
а вот класный Grid - блинннннннннннннннн
http://www.youtube.com/watch?v=9skWodrQE2s

  Ответить  
 
 автор: Едрёныч   (03.02.2010 в 13:46)   личное сообщение
 
 

Скажите , час, судя по DataGrid Вы с visual studio дело имеете.? Вы где информацию брали по данному вопросу?

  Ответить  
 
 автор: час   (03.02.2010 в 14:14)   личное сообщение
 
 

Не совсем так , Едрёныч
Я на VB6 С час создаю программки...
А Вас какая информация интересует???

  Ответить  
 
 автор: Едрёныч   (03.02.2010 в 15:55)   личное сообщение
 
 

Да меня много чего интересует, тк в данном вопросе почти ничего не знаю. В аксесе всё более менее понятно, удобно и привычно, а если с базой постоянно будут работать несколько людей и её объём большой и постоянно увеличивается, то SQL Server получше. Вопрос следующий: Вы делали Windows Forms и привязывали ли их к базам данных? К аксесу, например, или к SQL серверу. Насколько это удобно? Или очень сложно?

  Ответить  
 
 автор: час   (03.02.2010 в 16:07)   личное сообщение
 
 

Как те сказать - про сложно....
Пока не знаешь чё к чему - дремучий лес...
Как только начал потихоньку по немногу, где по многу - и попёрло
Аналогично освоению любого нового
==================================
В работе использую 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

  Ответить  
 
 автор: час   (03.02.2010 в 16:10)   личное сообщение
 
 

Насчёт поработали



  

'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

  Ответить  
 
 автор: час   (03.02.2010 в 16:15)   личное сообщение
 
 

Вот собсно и сё
Всё в таком духе
Запросами решаются часть вопросов
Другая часть иными рекордсетами....
Всё почти как в access , но из вне...
Собственно и access не нужен только сам файл.exe - это плюс
C отчётами вот тока проблемака надо выводить куда умеешь
начиная с простых текстовых файлов и кончая - куда придётся

  Ответить  
 
 автор: FORMAT   (03.02.2010 в 17:21)   личное сообщение
 
 

Час, не вводи человека в заблуждение. Он про 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"

ЗЫ
Етот пример хоть и рабочий, но не совсем правильно так делать.
Вааще-то правильней подключение прописывать в отдельных классах.

  Ответить  
 
 автор: час   (03.02.2010 в 17:25)   личное сообщение
 
 

Извини, я и говорю про VB6 я оного пердупредил давиче

  Ответить  
 
 автор: Едрёныч   (04.02.2010 в 11:34)   личное сообщение
 
 

Спасибо за помощь, буду изучать.

  Ответить  
 
 автор: пользователь   (29.05.2010 в 00:02)   личное сообщение
 
 

как

  Ответить  
 
 автор: час   (29.05.2010 в 10:40)   личное сообщение
 
 

Всё очень просто:
Необходимо создать запрос с условием поиска из таблицы параметры услуги по полю "УСЛУГА"
Этот запрос будет источником данных для ADODC
Datagrid связан с ADODC и отобразит то, что Вам необходимо.
==============Всё это вешаем на клик по Combobox

  Ответить  
 
 автор: пользователь   (30.05.2010 в 13:52)   личное сообщение
 
 

подскажите если у меня создан проект,а я забыла приветственную форму как ее сделать

  Ответить  
 
 автор: час   (30.05.2010 в 14:10)   личное сообщение
 
 

Оч просто открываем в меню(кнопки наверху)
Проект (Project)
В самом низу Имя проекта и слово свойства.
В правом комбобоксе форму, которая при запуске проекта отобразиться автоматом.
==================================================================
Это в VB6
А если в Access - тогда
сервис =>параметры запуска -> форма
=====================================================================

илли Вы имелли ввиду нечто другое? http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/VBA/247.mspx

  Ответить  
 
 автор: пользователь   (30.05.2010 в 21:58)   личное сообщение
 
 

спасибки)

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList