Q&A

  • ADO질문입니다.
    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!품목명    이부분처리에 대해서는 어떻게 하는지 가르켜주시면 감사합니다..
1  COMMENTS
  • Profile
    이정욱 2007.11.25 21:26
    ADOConnection 컴포넌트를 올려 놓고, 커넥션 스트링 속성에 cnstr내용을 집어 넣으시면 일단 커넥션 컴포넌트세팅은 끝납니다.
    그리고 ADOQuery 컴포넌트를 올려 놓으시고 SQL 속성에 SQL내용을 넣으십시오.
    그리고 코드상에서 ADOQuery.open 하신 후 아래 반복문을 구현하시면 됩니다.
    단 말씀하신 cmdMenu(i).Text = rs.Fields!품목명 이 부분은 ADOQuery.FieldByName('품목명').AsString 으로 쓰시면 됩니다.