Dim cnstr As String
Dim SQL As String
Dim pwd As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
i = 0
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\pos.mdb;Persist Security Info=False"
SQL = "select 품목명 from 메뉴 where 분류= '" & MyStr & "'"
cn.ConnectionString = cnstr
cn.Open
rs.Open SQL, cn
Do Until rs.EOF
cmdMenu(i).Text = rs.Fields!품목명
cmdMenu(i).Visible = True
i = i + 1
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
현재 이건 VB코드입니다. 이런식으로 델파이에 적용시키려고 하는데 도무지 어떤식으로 코딩을 해야 되는지
감이 잡히질 않습니다. 특히
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
이런 객체 생성부분과
cmdMenu(i).Text = rs.Fields!품목명
이렇게 레코드셋을 DB로 부터 가져와서 어떤 데이터에 저장시키는 방법 자체를 모르겠습니다.
우선 저부분 전체가 힘드시다면
rs.Fields!품목명 이부분처리에 대해서는 어떻게 하는지 가르켜주시면 감사합니다..
그리고 ADOQuery 컴포넌트를 올려 놓으시고 SQL 속성에 SQL내용을 넣으십시오.
그리고 코드상에서 ADOQuery.open 하신 후 아래 반복문을 구현하시면 됩니다.
단 말씀하신 cmdMenu(i).Text = rs.Fields!품목명 이 부분은 ADOQuery.FieldByName('품목명').AsString 으로 쓰시면 됩니다.