|
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
#37396643
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: ->|<- :адуктО
Сообщения: 23 134
|
|
gill87Полный листинг. ну вы даете. Лучше так:
Полный листинг 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
Private Sub Command1_Click()
Beep
End
End Sub
Private Sub mnuCloseItem_Click()
Beep
End
End Sub
Private Sub mnuGosItem_Click()
Form3.Show
End Sub
Private Sub mnuPerepodItem_Click()
Form4.Show
End Sub
Private Sub mnuRypItem_Click()
Form2.Show
End Sub
Form2
Option Explicit
Private Sub Command1_Click()
MSFlexGrid1.AddItem ""
End Sub
Private Sub Command2_Click()
MSFlexGrid1.RemoveItem MSFlexGrid1.Row
End Sub
Private Sub Command3_Click()
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
nFreeFile = FreeFile
CommonDialog1.ShowSave
strFileName = CommonDialog1.FileName
If strFileName <> "" Then
Open strFileName For Output As nFreeFile
strFileContent = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)
Print #nFreeFile, strFileContent
Close
End If
End Sub
Private Sub Command4_Click()
Beep
Form1.Show
Form2.Hide
End Sub
Private Sub MSFlexGrid1_GotFocus()
MSFlexGrid1.ColWidth( 0 ) = 400
MSFlexGrid1.ColWidth( 1 ) = 1000
MSFlexGrid1.ColWidth( 2 ) = 4000
MSFlexGrid1.ColWidth( 3 ) = 1000
End Sub
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
MSFlexGrid1.Text = Empty
End If
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) > 0 Then
MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), 1 , Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) - 1 )
Exit Sub
Else
Exit Sub
End If
ElseIf KeyAscii = 13 Then
If MSFlexGrid1.Col <= 2 Then
SendKeys "{right}"
Exit Sub
ElseIf MSFlexGrid1.Col = 3 Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
SendKeys "{home}" + "{down}"
Exit Sub
End If
Else
If MSFlexGrid1.Col = 0 Then
ElseIf MSFlexGrid1.Col = 1 Then
ElseIf MSFlexGrid1.Col = 2 Then
End If
End If
MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub
Form3
Option Explicit
Private Sub Command1_Click()
MSFlexGrid1.AddItem ""
End Sub
Private Sub Command2_Click()
MSFlexGrid1.RemoveItem MSFlexGrid1.Row
End Sub
Private Sub Command3_Click()
CommonDialog1.Filter = " Files(*.mdb)|*.mdb"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Close # 1
Print MSFlexGrid1.Text
Open CommonDialog1.FileName For Output As # 1
End If
End Sub
Private Sub Command4_Click()
Beep
Form1.Show
Form3.Hide
End Sub
Private Sub MSFlexGrid1_GotFocus()
MSFlexGrid1.ColWidth( 0 ) = 400
MSFlexGrid1.ColWidth( 1 ) = 4000
MSFlexGrid1.ColWidth( 2 ) = 1500
End Sub
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
MSFlexGrid1.Text = Empty
End If
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) > 0 Then
MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), 1 , Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) - 1 )
Exit Sub
Else
Exit Sub
End If
ElseIf KeyAscii = 13 Then
If MSFlexGrid1.Col <= 2 Then
SendKeys "{right}"
Exit Sub
ElseIf MSFlexGrid1.Col = 3 Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
SendKeys "{home}" + "{down}"
Exit Sub
End If
Else
If MSFlexGrid1.Col = 0 Then
ElseIf MSFlexGrid1.Col = 1 Then
ElseIf MSFlexGrid1.Col = 2 Then
End If
End If
MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub
Form4
Option Explicit
Private Sub Command4_Click()
Beep
Form1.Show
Form4.Hide
End Sub
Private Sub Command5_Click()
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
Dim nFileLenght As Integer
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
Close #nFreeFile
Open strFileName For Input As nFreeFile
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = strFileContent
Close
End If
End Sub
Private Sub Command6_Click()
Dim strFileName As String
Dim strFileContent As String
Dim nFreeFile As Integer
Dim nFileLenght As Integer
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
Close #nFreeFile
Open strFileName For Input As nFreeFile
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel) = strFileContent
Close
End If
End Sub
Private Sub MSFlexGrid1_GotFocus()
MSFlexGrid1.ColWidth( 0 ) = 400
MSFlexGrid1.ColWidth( 1 ) = 2000
MSFlexGrid1.ColWidth( 2 ) = 3000
End Sub
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
MSFlexGrid1.Text = Empty
End If
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Len(Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel))) > 0 Then
MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = Mid(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel), 1 , Len(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)) - 1 )
Exit Sub
Else
Exit Sub
End If
ElseIf KeyAscii = 13 Then
If MSFlexGrid1.Col <= 2 Then
SendKeys "{right}"
Exit Sub
ElseIf MSFlexGrid1.Col = 3 Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
SendKeys "{home}" + "{down}"
Exit Sub
End If
Else
If MSFlexGrid1.Col = 0 Then
ElseIf MSFlexGrid1.Col = 1 Then
ElseIf MSFlexGrid1.Col = 2 Then
End If
End If
MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub
Private Sub MSFlexGrid2_GotFocus()
MSFlexGrid2.ColWidth( 0 ) = 400
MSFlexGrid2.ColWidth( 1 ) = 2000
MSFlexGrid2.ColWidth( 2 ) = 3000
End Sub
Private Sub MSFlexGrid2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
MSFlexGrid2.Text = Empty
End If
End Sub
Private Sub MSFlexGrid2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Len(Trim(MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel))) > 0 Then
MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel) = Mid(MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel), 1 , Len(MSFlexGrid2.TextMatrix(MSFlexGrid2.RowSel, MSFlexGrid2.ColSel)) - 1 )
Exit Sub
Else
Exit Sub
End If
ElseIf KeyAscii = 13 Then
If MSFlexGrid2.Col <= 2 Then
SendKeys "{right}"
Exit Sub
ElseIf MSFlexGrid2.Col = 3 Then
MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
SendKeys "{home}" + "{down}"
Exit Sub
End If
Else
If MSFlexGrid2.Col = 0 Then
ElseIf MSFlexGrid2.Col = 1 Then
ElseIf MSFlexGrid2.Col = 2 Then
End If
End If
MSFlexGrid2.Text = MSFlexGrid2.Text + Chr(KeyAscii)
End Sub
Private Sub MSFlexGrid3_GotFocus()
MSFlexGrid3.ColWidth( 1 ) = 3000
MSFlexGrid3.ColWidth( 2 ) = 2000
End Sub
Private Sub MSFlexGrid4_GotFocus()
MSFlexGrid4.ColWidth( 1 ) = 3000
MSFlexGrid4.ColWidth( 2 ) = 2000
End Sub
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim SourceBase As ADODB.Connection
Dim ConnString As MSFlexGrid
Dim SQL As String
SourceBase = "D:\...."
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceBase & ";Persist Security Info=False"
conn.Open ConnString
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
SQL = "SELECT RYP.[Название дисциплины],RYP1.[Название дисциплины]" & "FROM RYP,RYP1" & "WHERE RYP.[Название дисциплины] <> RYP1.[Название дисциплины];"
rs.Open SQL, conn
Do Until rs.EOF = True
conn.Execute SQL
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
|
|
|
