R: LONG RAW

From: Fabio GRANDE <fabiog_at_fileita.it>
Date: Mon, 6 Nov 2000 08:23:49 +0100
Message-ID: <8u5n18$mll$1@fe1.cs.interbusiness.it>

This is a part of my Visual Basic 6 code... Note that INDSE_DOC is a long raw field... I can obtain (and put it in the Word object) the values of INDSE_ENT (it's a char 10 field) !
Thank in advance for Your co-operation

Fabio GRANDE

Set Conn = New ADODB.Connection
Dim rsT As ADODB.Recordset

Conn.ConnectionString = "DSN=...;UID=...;PWD=..." Conn.Open

Set rsT = New ADODB.Recordset

rsT.CursorType = adOpenStatic
rsT.CursorLocation = adUseClient
rsT.Open "SELECT INDSE_ENT, INDSE_DOC FROM INFDBSE WHERE INDSE_SCH = '" &

Skema & "' ORDER BY INDSE_SCH, INDSE_ENT", Conn, , , adCmdText While Not rsT.EOF
  ' Inserisco una nuova pagina

  Selection.Font.Name = "Times New Roman"
  Selection.Font.Size = 12
  Selection.Font.Bold = False
  Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

  Selection.TypeParagraph
  Selection.TypeText Text:=rsT!Indse_Ent & " - " & rsT!Indse_Doc
  Selection.TypeParagraph

  Selection.TypeParagraph
  Selection.EndKey Unit:=wdStory, Extend:=wdMove

  FieldsCycle Skema, rsT!Indse_Ent ' This sub fills a Word table

  rsT.MoveNext
Wend
rsT.Close
Set rsT = Nothing

Conn.close
Set Conn = nothing Received on Mon Nov 06 2000 - 01:23:49 CST