[求助]紧急求助

xiaojiao

我刚刚接触domino
现在要实现一下功能：
    连接sql server，把其中的一个表的内容显示出来
应该怎么做？？
最好是给来个例子
我现在根本就不知道怎么用，我有4.6的书
谢谢大家了。
小焦求助

xiaojiao

希望大家帮帮忙
这是我搜索之后最好的网站了

xiaojiao

人气有待提高

xiaojiao

大哥，很急的
帮忙随便来个例子怎么样

DIRL

用数据源可以odbc
我这里有，把你的信箱留下，不过是显示ACCESS的！
你自己看看吧

wintellzbh

修改网友后的程序。^_^。大家共享讨论！

接受sql数据导成notes文档：
Sub Click(Source As Button)
        Dim con As New odbcconnection
        Dim qry As New odbcquery
        Dim res As New odbcresultset
        Dim temp As Variant
        Dim session As New notessession
        Dim db As notesdatabase
        Dim doc As notesdocument
        Set db=session.currentdatabase
       
        If con.connectto("TestForLouts") Then
                Set qry.connection=con
                qry.sql= "select * from TABLE1"
                Set res.query=qry
                res.execute
                If res.isresultsetavailable=True Then
                        Set doc=db.createdocument
                        doc.form="Main"
                       
                        res.firstrow
                       
                        doc.Name=res.getvalue("Name")
                        doc.Birth=res.getvalue("Birth")
                        doc.Age=res.getvalue("Age")
                        doc.Word=res.getvalue("Word")
                       
                        Call doc.save(True,False)
                       
                        Do
                                Set doc=db.createdocument
                                doc.form="Main"
                               
                                res.nextrow
                               
                                doc.Name=res.getvalue("Name")
                                doc.Birth=res.getvalue("Birth")
                                doc.Age=res.getvalue("Age")
                                doc.Word=res.getvalue("Word")
                               
                                Call doc.save(True,False)
                               
                        Loop Until res.isendofdata
                End If
        Else
                Messagebox("Could not connect to database server")
        End If
End Sub

用表单上填写数据，传给sql：
Sub click (source As button)
        Dim w As New notesuiworkspace
        Dim uidoc As notesuidocument
        Dim doc As notesdocument
        Dim view As notesview
       
        Dim con As New odbcconnection
        Dim qry As New odbcquery
        Dim result As New odbcresultset
        Set uidoc=w.currentdocument
        Set doc=uidoc.document
       
        If con.connectto("TestForLouts") Then
               
                Set qry.connection=con
                qry.sql="select * from Table1"
                Set result.query=qry
               
                qry.sql= "insert into TABLE1(Name,Birth,Age,Word) values('" + doc.Name(0) + "','" + Cstr(doc.Birth(0)) + "','" +Cstr(doc.Age(0)) + "','" +doc.Word(0) + "')"  
                Call result.execute()
                Call result.addrow()
                               
                Call result.updaterow
                Call con.disconnect()
                Messagebox("save the date")
        Else
                Messagebox("do not save")
        End If
        result.close(db_close)
        con.disconnect
End Sub

xiaojiao

jiaolitao@hotmail.com
谢谢

我这里创建了数据库之后，应该怎么创建表单呀
新手
不好意思

wintellzbh

design打开数据库，选择表单，上面有个创建表单。^_^，你先看本notes的书吧！

xiaojiao

xiaojiao

我这里怎么看不到呀

xiaojiao

因为ftp没有开
我从网上下的英文测试版
是不是没有开发的功能呀
郁闷

xiaojiao

dril
紧急需要你的例子
谢谢你

xiaojiao

wintellzbh

干吗下中文测试版呢？本站的ftp里面不是有r6中文版么？

xiaojiao

前几天我这里没有开ftp
现在已经又刻录光盘了