Q&A
- 아래의 소스는 VB로 된것임당..이걸 델루 바꿀수 있을까여?
하여 고수님들 ^^;;
아래의 소슬 델루 바꿀려구 하는데.. 어케 해야 하나여 ㅠㅠ 아시는분들은 답글좀 올려 주이소 ㅠㅠ 제발... Plz
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
아래의 소슬 델루 바꿀려구 하는데.. 어케 해야 하나여 ㅠㅠ 아시는분들은 답글좀 올려 주이소 ㅠㅠ 제발... Plz
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
COMMENTS
-
-
저번에 답변을 드린것 같은데.... 틀렸나여????헤해...
아니면 ItemData 라는 것 때문에 헷갈리시면 다시 설명을...
Option Explicit
Private Sub Command1_Click()
Me.List1.AddItem "TEST1", 0
Me.List1.AddItem "TEST2", 1
Me.List1.AddItem "TEST3", 2
Me.List1.AddItem "TEST4", 3
Me.List1.AddItem "TEST5", 4
Me.List1.ItemData(0) = 1
Me.List1.ItemData(1) = 1
Me.List1.ItemData(2) = 2
Me.List1.ItemData(3) = 2
Me.List1.ItemData(4) = 2
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.ItemData(i) = 1 Then
List2.AddItem List1.List(i)
End If
Next
End Sub
이렇게 하면 List2 에는 "Test1" 과 "Test2" 라는 문자열만이 들어가죠...
리스트 박스의 ItemData 는 각 아이템들을 그룹별 또는 각각 구별할때 사용하는 일종의
TAG 값이라 보시면 될겁니다....
포팅을 원하는 소스에서
리스트박스에 아이템들이 채워질때 ItemData의 값들도 채워졌을 겁니다...
그 아이템값들중에 ItemData 의 값이 1에 해당하는 아이템의 문자열에 해당하는 데이터를
삭제 하면 되는데 델파이에서는 ItemData 속성이 없으니깐
멀티 컬럼 리스트박스를 이용해서 문자열과 그의 ItemData 값들을 주고
하면 되지 않나여??
이게 원하시는 답이 아니면 죄송코요... ^^
-
제가 알기로는 (잘 아는 주제도 못되지만..) 'ItemData'에 해당하는 프로퍼티는 델파이의 VCL에서 찾을 수 없는 걸로 압니다. 그니깐 고부분 만큼은 직접 포팅이 어렵겠네요..
제 기억으로는 이 게시판에서, 비슷한 내용의 답변을 어느 분이 올려주신걸로 아는데요?
그 검색문만 빼놓고 포팅은 간단하죠.. (뭐.. 검색조건이야 얼마든지 만들어낼 수 있을테니...) 그게 궁금해서 질문하신건 아닐테구요.. 머.. 'ItemData'에 해당하는 것을 TStrings 로 만들어서 사용하면 어떨까 싶네요? 비베를 몰라서 어떤건진 몰겠지만, ItemData가 정수형이라면 TStrings는 문자형이라는게 사용상의 차이 정도겠구요?
사발우성 wrote:
> 하여 고수님들 ^^;;
> 아래의 소슬 델루 바꿀려구 하는데.. 어케 해야 하나여 ㅠㅠ 아시는분들은 답글좀 올려 주이소 ㅠㅠ 제발... Plz
> 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
>
(NOTICE) You must be logged in to comment on this post.
-
- 박성일
- •
- 2001.02.21 02:08
- 3 COMMENTS
- /
- 0 LIKES
-
박지훈.임프•2001.04.04 11:03임펠리테리입니다. 파일을 업로드하려면, 당근 form 태그에 method를 post로 해야 하고, enctype을 muti...
-
화랑•2001.02.22 00:34오래전에 ISAPI로 upload를 구현한적이 있지요.. ISAPI안에 TWebRequest 라는 객체를 이용을 하면.. 파...
-
박성일•2001.03.17 00:37
-
- 질문
- 2001.02.21 02:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 투덜이
- 2001.02.21 01:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2001.02.21 01:22
- 3 COMMENTS
- /
- 0 LIKES
하여 고수님들 ^^;; 아래의 소슬 델루 바꿀려구 하는데.. 어케 해야 하나여 ㅠㅠ 아시는분들은 답글좀 올려 주이소 ㅠㅠ 제발... Plz For i = 0 To list1.ListCount - 1 If list1.ItemData(i) = 1 Then sql = "select * from mecha_assy "...-
사발우성•2001.02.21 03:47사발우성 wrote: > 하여 고수님들 ^^;; > 아래의 소슬 델루 바꿀려구 하는데.. 어케 해야 하나여 ㅠㅠ 아...
-
왕초보•2001.02.21 03:27저번에 답변을 드린것 같은데.... 틀렸나여????헤해... 아니면 ItemData 라는 것 때문에 헷갈리시면 다시 ...
-
김지엽•2001.02.21 02:18제가 알기로는 (잘 아는 주제도 못되지만..) 'ItemData'에 해당하는 프로퍼티는 델파이의 VCL에서 찾을 수 ...
-
- [대양]
- 2001.02.21 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 최정원
- •
- 2001.02.21 01:07
- 1 COMMENTS
- /
- 0 LIKES
-
yoo•2001.02.21 23:51ClientSocket.Close; 이거 하나만 써보시지요 최정원 wrote: > 안녕하세요. > > 소켓통신으로 전송된...
-
- 별그림자
- 2001.02.21 00:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 알고싶다
- 2001.02.21 00:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 아이리스
- •
- 2001.02.21 00:10
- 3 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.02.21 02:00아이리스 wrote: > 문제가 생겼어요... > > 아래 답변해준 소스죠? > > 아래 문제가 있어요... > ...
-
아폴론•2001.02.21 02:26Invelid parameter라구요... Directory 다른 곳에 *.net이라는 것이 있고...(parpadox DB씁니다...) Fi...
-
아이리스•2001.02.21 02:09해봤는데요..EDBEngine Error가 뜨네요... Invelid parameter라구요... Directory 다른 곳에 *.net이...
-
- bean
- 2001.02.21 00:07
- 0 COMMENTS
- /
- 0 LIKES
-
- Kreuz
- •
- 2001.02.21 00:04
- 1 COMMENTS
- /
- 0 LIKES
-
이성훈•2001.02.21 03:09Kreuz wrote: > 안녕하세요? > > 엑셀 파일을 읽어들이고 싶은데요.. > > DBGrid를 쓰지 않고 바로 ...
-
- 이원택
- 2001.02.20 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파초짜..
- •
- 2001.02.20 23:08
- 4 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.02.20 23:31델파이에 소켓컴펀넌트를 사용하세요.. 뭐하러 어렵게 직접 짭니까.. 콤퍼넌트 탭에 internet 아래에 있...
-
델파초짜..•2001.02.20 23:50저는 클라이언트에서 소켓을 생성하려는 건데요.. 그러니까.. 정확히 ClientSocket을 생성하려는 검니다.....
-
똘망울•2001.02.21 00:57이런.. listen, accept 없이 소켓을 생성하신다는 말씀입니까? 무슨이야긴지 이해가 안되네여. ServerSoc...
-
델파초짜..•2001.02.21 01:12그러니까.. 저는 클라이언트를 만들고요.. 일종의 모니터링이죠.. 제가 IP를 DB든 파일이든 가지고 있습니...
-
- 델사랑
- 2001.02.20 22:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사
- 2001.02.20 22:44
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- 2001.02.20 22:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 아기코알라
- •
- 2001.02.20 22:26
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.02.20 22:33음.. 제가 제대로 알고 하는 이야기일지는 모르겠지만요.. 키 필드는 고유값을 가지고 있는 필드여야 합...
-
- 조언자
- •
- 2001.02.20 22:29
- 3 COMMENTS
- /
- 0 LIKES
-
고드름•2001.02.20 22:46안녕하세요? 고드름 김정입니다. 클라이언트에서 서버로 HTTP / GET 요청했다면 클라이언트가 넘겨 받...
-
조언자•2001.02.20 23:11죄송합니다. 그 받는 결과를 어떻게 확인하는지를 몰라서 질문한겁니다.. 통신은 안해봤습니다. NMHT...
-
조언자•2001.02.20 23:33감사합니다. 해결했습니다. 예제에 나와있군요. memo 에 차레차레 값을 적어넣어서 해결했습니다. ...
-
- 초보왕
- •
- 2001.02.20 22:03
- 3 COMMENTS
- /
- 0 LIKES
-
컴맹...•2001.02.20 22:46안녕하세여.. 컴맹입니다.. StringReplace를 사용하세여... 이함수를 사용하면 해결이 될것같은데여... ...
-
초보왕•2001.02.21 19:13컴맹... wrote: > 안녕하세여.. > 컴맹입니다.. > StringReplace를 사용하세여... > 이함수를 사용하면...
-
고드름•2001.02.20 22:42안녕하세요? 고드름 김정입니다. function StringReplace(const S, OldPattern, NewPattern: string; F...
-
- 빙구
- •
- 2001.02.20 21:04
- 2 COMMENTS
- /
- 0 LIKES
-
빙구•2001.02.20 21:09빙구 wrote: > DLL 폼을 익스포트한후 프로그램을 종료시키면 자꾸 > A Win32 API Functon Failed라고 에...
-
고드름•2001.02.20 21:13안녕하세요? 고드름 김정입니다. 델파이로 일반 어플을 만들 때는, TForm 위에 TApplication 이라는 ...
> 하여 고수님들 ^^;;
> 아래의 소슬 델루 바꿀려구 하는데.. 어케 해야 하나여 ㅠㅠ 아시는분들은 답글좀 올려 주이소 ㅠㅠ 제발... Plz
> 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
>