คือผมมี DB ที่เป็น SQL อยู่ แล้วผมสามารถทำการลิงค์ข้อมูลจาก SQL มาได้แต่ถ้าเป็นในกรณี type = nvarchar หรือ nchar ชื่อที่เป็น Native มันไม่สามารถดึงลง DB ได้ครับ
ตัวอย่าง
Sub Initialize
'odbc var
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim strsql As String
Dim myreturn As String
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim doc As NotesDocument
'Connect DB
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
strsql = "SELECT Person.ID, Title,English_Firstname,English_Lastname"
strsql = strsql & "FROM PERSON.ID "
strsql = strsql & " WHERE Title = ‘นาย’”
'*******************************
If con.IsConnected Then
con.Disconnect
End If
If con.ConnectTo("ODBCName","Username","Password") Then
qry.SQL = strsql
result.Execute
If result.IsResultSetAvailable Then
'result.FirstRow
Do
While Not(entry Is Nothing)
Set doc = entry.Document
doc.Remove(True)
Set entry = collection.GetNextEntry(entry)
'view.Refresh
Wend
result.NextRow
Set doc = db.CreateDocument()
' Form
Doc.Form = "Person"
Doc.Curryr = Year(Now)
Doc.Person_ID = result.getvalue("ID")
Doc.Title = result.getvalue("Title") ‘type = nvarchar
Doc.FName = result.getvalue("English_FIRSTNAME") ‘typy = char
Doc.LName = result.getvalue("Native_LASTNAME") ‘type = nvarchar
Call doc.ComputeWithForm(True,False)
Call doc.Save( True, True)
Loop Until result.IsEndOfData
result.Close(DB_CLOSE)
con.Disconnect
Else
Messagebox "Cannot get result set"
Exit Sub
End If
End If
End Sub
รบกวนด้วยครับ |