Q&A
- VB를 델루 포팅중 막히는 곳이 있어서 질문함당...^^;;
하여 고수님들 ^^
제가 VB를 델루 포팅 하구 있는데여 막히는 곳이 있어서리. 이렇게 질문 함당..
아래의 for 문좀 설명좀 부탁드림당...^^;;
Sub Combo3_Click ()
Dim tbl As table
Dim ds As dynaset
Dim sql As String
Dim i As Integer, j As Integer
.
.
.
.
.
max_cnt = list2.ListCount
cur_cnt = 0
For i = 0 To list1.ListCount - 1
If list1.ItemData(i) = 1 Then
sql = "select * from mecha_assy "
sql = sql & "where sr_jp_serial_no = '" & Left(list1.List(i), 10) & "'"
Set ds = chulhadb.CreateDynaset(sql)
Do While Not ds.EOF
ds.Delete
ds.MoveNext
Loop
ds.Close
End If
list1.RemoveItem i
Next i
text1.SetFocus
End Sub
제가 VB를 델루 포팅 하구 있는데여 막히는 곳이 있어서리. 이렇게 질문 함당..
아래의 for 문좀 설명좀 부탁드림당...^^;;
Sub Combo3_Click ()
Dim tbl As table
Dim ds As dynaset
Dim sql As String
Dim i As Integer, j As Integer
.
.
.
.
.
max_cnt = list2.ListCount
cur_cnt = 0
For i = 0 To list1.ListCount - 1
If list1.ItemData(i) = 1 Then
sql = "select * from mecha_assy "
sql = sql & "where sr_jp_serial_no = '" & Left(list1.List(i), 10) & "'"
Set ds = chulhadb.CreateDynaset(sql)
Do While Not ds.EOF
ds.Delete
ds.MoveNext
Loop
ds.Close
End If
list1.RemoveItem i
Next i
text1.SetFocus
End Sub
2
COMMENTS
-
-
답변 감솨여.....^^
오늘도 존하루 보내시길.....
왕초보 wrote:
> For i = 0 To list1.ListCount - 1
> If list1.ItemData(i) = 1 Then
> sql = "select * from mecha_assy "
> sql = sql & "where sr_jp_serial_no = '" & Left(list1.List(i), 10) & "'"
> Set ds = chulhadb.CreateDynaset(sql)
> Do While Not ds.EOF
> ds.Delete
> ds.MoveNext
> Loop
> ds.Close
> End If
> list1.RemoveItem i
> Next i
>
> 비베 3.0 이전 버전에서 사용하던 구 DAO 코드 같은데여....
> CreateDynaset 는 현재는 OpenRecordset 메소드로 대치 되었는데.
> 해당 쿼리를 수행 하게 됩니다.....
> 결국 리스트 박스의 해당 아이템에 속하는 sr_jp_serial_no 를 select 해서 커서를 연후
> 각 레코드 별로 순차적으로 지우는 내용같은데요.......
> 해당 레코드가 지워지면 리스트박스에서도 아이템을 제거 해주고요....
> 요즘은 저런 구식의 코드는 사용하지 않아서요...
> 그냥 DELETE FROM mecha_assy WHERE where sr_jp_serial_no = '" & Left(list1.List(i), 10)
>
> 하고 쿼리를 수행하면 같은 결과가 나오지 않을까여......
> 굳이 조건에 해당하는 로우를 모두 지울거면 SELECT 해서 레코드를 연후 지울 필요가
> 없을것 같은데여......
> list1.ItemData(i) 에서 ItemData 속성은 컴보박스에 보여주는 항목의 문자열에
> 대응하는 long 값으로....
>
> Me.Combo1.AddItem "TEST"
> Me.Combo1.AddItem "TEST"
> Me.Combo1.AddItem "TEST"
> Me.Combo1.AddItem "TEST"
>
> Me.Combo1.ItemData(0) = 101
> Me.Combo1.ItemData(1) = 102
> Me.Combo1.ItemData(2) = 103
> Me.Combo1.ItemData(3) = 104
>
> 이렇게 사용 됩니다.... 그러면 항목의 문자열이 같은경우도 ItemData 를 기준으로
> 구별 할수 있습니다...
>
(NOTICE) You must be logged in to comment on this post.
-
- 사발우성
- •
- 2001.02.16 01:26
- 2 COMMENTS
- /
- 0 LIKES
하여 고수님들 ^^ 제가 VB를 델루 포팅 하구 있는데여 막히는 곳이 있어서리. 이렇게 질문 함당.. 아래의 for 문좀 설명좀 부탁드림당...^^;; Sub Combo3_Click () Dim tbl As table Dim ds As dynaset Dim sql As String Dim i As Intege...-
왕초보•2001.02.16 02:51For i = 0 To list1.ListCount - 1 If list1.ItemData(i) = 1 Then sql = "select * fro...
-
사발우성•2001.02.16 17:40답변 감솨여.....^^ 오늘도 존하루 보내시길..... 왕초보 wrote: > For i = 0 To list1.ListCount - ...
-
- nky
- •
- 2001.02.16 01:26
- 1 COMMENTS
- /
- 0 LIKES
-
nky•2001.02.16 01:52***********
-
-
^-_-^•2001.02.22 20:12yo` 흠...데이터만은 리눅스 서버쪽에 설치할수 있습니다. :) 일단 데이터(테이블)을 옮기는 간단한 ...
-
-
- 진
- •
- 2001.02.16 01:03
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.16 02:58안녕하세요. 최용일입니다. 만들고 싶은신 리소스DLL은 간단합니다. 먼저 델파이에 있는 이미지에디...
-
- 초보델피언
- 2001.02.16 00:59
- 0 COMMENTS
- /
- 0 LIKES
-
- zerodog
- •
- 2001.02.16 00:43
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2001.02.16 00:53APTRENTQuery.SQL.Add('Where NAME3 =' + #39 + EDSDONG.Text + #39 ); ==>APTRENTQuery.SQL.Add('Wher...
-
- 깨구락지
- •
- 2001.02.16 00:35
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2001.02.16 00:48당연히 BDE를 깔아야져? BDE는 아마 자료실에 있을겁니다. 그 외에는 사용한 DLL 등도 같이 카피하시면...
-
-
- 초보(왕)
- •
- 2001.02.16 00:10
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2001.02.16 00:27SetBookMark, GetBookMark, FreeBookMark 가 있습니다. 검색을 해 보시든지....아니면 델파이 헬프가 가...
-
- 뿌요
- •
- 2001.02.15 23:58
- 2 COMMENTS
- /
- 0 LIKES
-
광란자•2001.02.16 00:34table1SetText(Sender: TField; const Text: String); 여기서 Text가 상수 이군여.. 상수는 못 바꾸...
-
뿌요•2001.02.16 01:18..
-
- 명지니
- •
- 2001.02.15 23:38
- 1 COMMENTS
- /
- 0 LIKES
-
김지영•2001.03.03 02:46Printer.BeginDoc; GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) ---> DPI값 가져오는 함수임다....
-
- 강경진
- •
- 2001.02.15 23:34
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.16 05:13강좌란을 참고하세요... 강경진 wrote: > 탐색기에서 팝업메뉴에 내어플을 추가하고 싶습니다.
-
-
- 이창훈
- •
- 2001.02.15 23:10
- 1 COMMENTS
- /
- 0 LIKES
-
꼴통•2001.02.16 00:24이자료는 한델에 있는 자료입니다. 전에 제가 필요해서 TEXT FILE로 만들어 두었던 건데 유용하게 써먹네...
-
- 이승근
- •
- 2001.02.15 22:59
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.16 05:15에러가 발생하면 밑에 에러리스트가 나타나죠? 그 에러를 마우스로 클릭한뒤(그럼 파랗게 초점이 잡히죠)에...
-
- 만도
- 2001.02.15 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 최광욱
- 2001.02.15 22:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 송진출
- •
- 2001.02.15 22:37
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.16 05:16강좌란이나 자료실, Q&A에서 검색해보시면 많은 자료가 있습니다. 송진출 wrote: > 프로그램 실행시 아...
-
- 완전초보
- 2001.02.15 22:22
- 0 COMMENTS
- /
- 0 LIKES
-
-
초보자•2001.02.15 22:07완전초보 wrote: > 또 다시 질문을 드립니다. > > id := 'test'; > with adoquery1 d...
-
If list1.ItemData(i) = 1 Then
sql = "select * from mecha_assy "
sql = sql & "where sr_jp_serial_no = '" & Left(list1.List(i), 10) & "'"
Set ds = chulhadb.CreateDynaset(sql)
Do While Not ds.EOF
ds.Delete
ds.MoveNext
Loop
ds.Close
End If
list1.RemoveItem i
Next i
비베 3.0 이전 버전에서 사용하던 구 DAO 코드 같은데여....
CreateDynaset 는 현재는 OpenRecordset 메소드로 대치 되었는데.
해당 쿼리를 수행 하게 됩니다.....
결국 리스트 박스의 해당 아이템에 속하는 sr_jp_serial_no 를 select 해서 커서를 연후
각 레코드 별로 순차적으로 지우는 내용같은데요.......
해당 레코드가 지워지면 리스트박스에서도 아이템을 제거 해주고요....
요즘은 저런 구식의 코드는 사용하지 않아서요...
그냥 DELETE FROM mecha_assy WHERE where sr_jp_serial_no = '" & Left(list1.List(i), 10)
하고 쿼리를 수행하면 같은 결과가 나오지 않을까여......
굳이 조건에 해당하는 로우를 모두 지울거면 SELECT 해서 레코드를 연후 지울 필요가
없을것 같은데여......
list1.ItemData(i) 에서 ItemData 속성은 컴보박스에 보여주는 항목의 문자열에
대응하는 long 값으로....
Me.Combo1.AddItem "TEST"
Me.Combo1.AddItem "TEST"
Me.Combo1.AddItem "TEST"
Me.Combo1.AddItem "TEST"
Me.Combo1.ItemData(0) = 101
Me.Combo1.ItemData(1) = 102
Me.Combo1.ItemData(2) = 103
Me.Combo1.ItemData(3) = 104
이렇게 사용 됩니다.... 그러면 항목의 문자열이 같은경우도 ItemData 를 기준으로
구별 할수 있습니다...