2004.06.23·맨땅 해딩·조회 10,790

기초수준의 질문.. 이지만 .. 꼭 답변 부탁 드립니다!!!!!

넘 기초적인 것 같긴하지만..
지금 제가 급하게 맨땅에 해당하는 기분으로 비주얼 베이직을 짜고 있어서요
ㅡㅡ;;;; 좀 도와주시면 감사하겠습니다.!!

데이터 베이스에서 자료를 읽어와서 리스트컨트롤에 뿌리는게 가능한가요?
한가지 자료가 아니라 리스트의 한줄에 여러 자료가 들어가야 합니다.
예로

0/기안/이름/부서/회사명
1/결재/이름/부서/회사명
2/결재/이름/부서/회사명
-----------------------

이렇게 보이는 화면을 만들어야 합니다.
위에서 보이는 것과 같이 여러 자료가 한줄에 들어가야하는데 이것이
리스트컨트롤로 가능한가요?
(여러 인터넷 자료를 봤는데 하나의 자료를 올리는 것만 나와있더군요..ㅡㅡ;;)
배열을 사용해야 하나요?
배열을 사용하더라도 어떻게 뿌려야 하는지.... ㅡㅡ;;;;;;

또 질문이 있습니다.!!!!
선언부분에 선언한 내용 중 일부 입니다.
Dim P(4) As Variant
P(4) = Array("기안", "결재", "합의", "후결", "보통")
이곳에서 계속 에러가 발생을 하는데..
무엇이 틀렸는지 알 수가 없네요...
잘못된 문법인가요?????

꼭... 좀 알려주시면 감사하겠습니다.

제가 하나하나 배워서 해나가야 하는것인데... ㅡㅜ
시간이 없어서 급한맘에 이것저것 물어봅니다.. ^^;;;;
넘 급합니다!! 도와주세요!!!!

손병목 2004.06.25

답변이 늦었네요. 정말 죄송합니다.
질문하신 내용이 가능은 합니다. 다만 저 역시 제대로 된 프로그래머가 아니라 곁눈으로 배운터라 잘 하진 못합니다.
제가 아는 한 말씀드리자면,

1. 데이터 베이스에서 자료를 읽어와서 리스트컨트롤에 뿌리는게 가능한가요?
물론 가능합니다. 많은 사람들이 그렇게 하고 있는 걸로 압니다.
2. 어떻게?
일단 DB에 있는 내용을 불러야겠지요. 이럴 땐 SQL을 이용하는 것이 좋습니다.

sql = "select 번호,구분,이름,부서,회사명 from 테이블 where 조건식"
Set rs = db.OpenRecordset(sql)
If rs4.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
tmpVar = rs!번호 & rs!구분 & rs!이름 & rs!부서 & rs!회사명
List1.AddItem tmpVar
rs.MoveNext
Loop

이런 식으로 하면 될 것 같습니다.
저보다 더 초보인 것 같아 자세하게 설명드리고 싶으나,
SQL과 그 외 DB를 컨트롤하는 법을 설명드리자니 너무 방대하네요.

보다 쉽게 설명드리지 못해 죄송합니다.

손병목 2004.06.25

참, 그리고 두번재 질문요..

Dim P(4) As Variant
P(4) = Array("기안", "결재", "합의", "후결", "보통")
↓
Dim P() As Variant
P() = Array("기안", "결재", "합의", "후결", "보통")

이렇게 해보세요~

손병목 2004.06.25
답변이 늦었네요. 정말 죄송합니다.
질문하신 내용이 가능은 합니다. 다만 저 역시 제대로 된 프로그래머가 아니라 곁눈으로 배운터라 잘 하진 못합니다.
제가 아는 한 말씀드리자면,

1. 데이터 베이스에서 자료를 읽어와서 리스트컨트롤에 뿌리는게 가능한가요?
물론 가능합니다. 많은 사람들이 그렇게 하고 있는 걸로 압니다.
2. 어떻게?
일단 DB에 있는 내용을 불러야겠지요. 이럴 땐 SQL을 이용하는 것이 좋습니다.

sql = "select 번호,구분,이름,부서,회사명 from 테이블 where 조건식"
Set rs = db.OpenRecordset(sql)
If rs4.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
tmpVar = rs!번호 & rs!구분 & rs!이름 & rs!부서 & rs!회사명
List1.AddItem tmpVar
rs.MoveNext
Loop

이런 식으로 하면 될 것 같습니다.
저보다 더 초보인 것 같아 자세하게 설명드리고 싶으나,
SQL과 그 외 DB를 컨트롤하는 법을 설명드리자니 너무 방대하네요.

보다 쉽게 설명드리지 못해 죄송합니다.
손병목 2004.06.25
참, 그리고 두번재 질문요..

Dim P(4) As Variant
P(4) = Array("기안", "결재", "합의", "후결", "보통")
↓
Dim P() As Variant
P() = Array("기안", "결재", "합의", "후결", "보통")

이렇게 해보세요~

기초수준의 질문.. 이지만 .. 꼭 답변 부탁 드립니다!!!!!

댓글 2