2008 07月 | VB程序员博客

准备办个简单的英语对话学习班.

聘任 yaqi 来做英文老师.

要交学费–可用分

交作业

考试

以一月为期,第一名,偶来给奖励.实物奖励哈,暂时构想就这些.

有兴趣者,先来个初级报名跟跟.

我看看有多少人>10人就办

支持~~~，观望~~

嘿呀,嘿嘿~~

我来也~~

想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?

能算我一个否./

哈哈我报名

引用 4 楼 fvflove 的回复:
能算我一个否./

可以哦只要你保证按时上课交作业哈

英语最好是没基础开始,哈哈

yaqi是个不错的老师呢

我现在的初步的打算是,谁最后第一名我就跟美国寄个礼物过来

不过要是我自己第一,哇卡卡，就要yaqi同学从英国给我寄个礼物了

我也来顶下

我也报名，看看能否让我的英语水平0的突破。

其实我也想学学。

支持，早日摆脱英语盲 ^^!

强烈支持，我做教导主任，看谁不听话。

我也报名，学费有的是

怎么总是天南海北的？
一会儿美国，一会儿英国的
不行，有点儿乱，得屡一屡

等我屡清了，我也报下名
自从过了四级就没怎么写过英语单词了

难道楼主要去美国了？

哇哈哈陈老大都来了~~看来雅奇会一下子多了N多“弟子”了

貌似理清了，报名，就当个助理教练吧，哈哈

现在已报名暂9人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985

老师 clear_zero
教导主任: TechnoFantasy

引用 11 楼 TechnoFantasy 的回复:
强烈支持，我做教导主任，看谁不听话。

教导主任主任负责最后礼品的采购工作

好了,老大你出血吧,哦哈哈,这可是你自己找的

引用 16 楼 datou985 的回复:
貌似理清了，报名，就当个助理教练吧，哈哈

你想为最后的礼品买单吗?哇卡卡,想买单就做助理吧

强烈支持

狂顶

龙老大呀~~~~~~~~~~~~~~~~~~~~~~~~~终于在地球出现一次了…………..

汗
来的少一些

大家还好吧

看样子那天专门发个帖子絮絮旧了

M1的号召，诸位老大哪有不眷顾之理？

老龙，想死我了。哇咔咔

老龙做副教导主任吧，职务是协助教导主任办理采购事宜。

买单也无所谓
只要真有人能从中学到东西就好

带我不我报名

报名！

厄。。。。只是。。不知道学费多少
只有520可用分。。。 -_-

本来有1020分的。。。
前几天500分压本届奥运会中国金牌数最多 -_-!

我觉得大部分人过了四六级了，英语很好了。只要还记得用到就不会忘记
如果在外企的更是每天都用了

我英文水平按照听说读写依次下降

写最差，我写技术文档总是很担心对方看不明白，我的文档都写的比较繁复。一般包括流程图，部分细节流程图，文字解释，如果还不成就加屏幕截图。写那些弹出的对话框信息也没啥信心。

读的时候要是心浮气躁就读不进去，踏实下来就没什么问题。主要是我的词汇量小，还好有Babel Fish

听说没有什么问题，环境锻炼的。说上面就是表达清楚了就好了，口音什么的根本不用管。
现在看下来我觉得两个东西比较难 1细节描写(动作，表情，就好像中文中的那些细节描写) 2幽默。我听他们的Stand Up(类似中国的单口相声)感觉不到"包袱"在哪。这个应该是文化了

大家互相交流吧

我报名，

strongly support!

please enter my name

Ich wollte gehen nach Wien

Don't forget me ~~~

现在已报名暂14人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008

老师 clear_zero
教导主任: TechnoFantasy

yaqi你可以准备教材去了,HOHO

我也报名！！
自从有一次接了外国的电话能听懂别人讲的可是自己却不知道怎么回答，郁闷。。。。
提高英语说话能力最重要！！！

现在已报名暂15人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove

老师 clear_zero
教导主任: TechnoFantasy

看热闹的路人甲 :aiirii
看热闹的路人乙:online

ps:果然是XP家族两只活宝

,

米有可用分的穷光蛋飘过~~

引用 38 楼 jinjazz 的回复:
米有可用分的穷光蛋飘过~~

你可以拿专家分来交学费

只要你同意,我直接让某人在数据库里划帐如何

瞧,我对你要多好有多好.没有可用分就拿专家分.

什么时候开始啊？呵呵
越快越好
学费越少越好

这东西,网上咋学习呀??

利用www.itcast.net ??

这个是CSDN 办的,专门用于网络教学,培训

我也报名吧, 英语一直不好.

引用 40 楼 canylove 的回复:
什么时候开始啊？呵呵
越快越好
学费越少越好

应该下月开始,本周初招生,下星期正式招生付学费,分学号.

准备教材.

不过报名的同志要有心里准备,可是有作业和考试的 =_=

我报名做监考老师。

嗯，专家分就专家分吧，我报名.

我报名做监考老师。想考试通过的找我啦

不知道有没有听力，有听力就报名学啦

我发现我可以在任何板块把帖子加入精华，这个不是版主才有的权利么

现在已报名暂17人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)

老师 clear_zero
教导主任: TechnoFantasy

看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)

无视的路人丁:only_endure

一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)

引用 48 楼 jinjazz 的回复:
我发现我可以在任何板块把帖子加入精华，这个不是版主才有的权利么

我们B4 他们呢

举报好象小版可以看见所有相关大版的举报

嗯，看在偶帮你推荐到首页的份上，打个折吧^&^

引用 51 楼 jinjazz 的回复:
嗯，看在偶帮你推荐到首页的份上，打个折吧^&^

我晕…..我说是谁推荐的呢 =_=

为了你这个推荐,我B4你,宣布收了5倍的学费 ^_^

叮叮叮
支持

我还以为你在b4 csdn的产品经理 -__-
你是开店的还是打劫的..

引用 54 楼 jinjazz 的回复:
我还以为你在b4 csdn的产品经理 -__-
你是开店的还是打劫的..

我本就是黑店店主

我发现我想吸收你入XP家族了,你想知道原因吗?
进入XP家族的人称呼都变了
而你,一旦进入,你的名字就叫—JP
哇卡卡.

XP家族的创建人是ari…你找他算帐吧.

引用 53 楼 yangao 的回复:
叮叮叮
支持

报名不报名啊,不报名,就当你是路人丙了 ^_^

引用 56 楼 daisy8675 的回复:
引用 53 楼 yangao 的回复:
叮叮叮
支持

报名不报名啊,不报名,就当你是路人丙了 ^_^

为什么都是打酱油，他就可以插队变成丙…

jp…也不错吗，我们打游戏的时候叫极品装备都叫jp的，包括我的头像就是jp，不过现在已经沦为lj了…

引用 57 楼 jinjazz 的回复:
引用 56 楼 daisy8675 的回复:
引用 53 楼 yangao 的回复:
叮叮叮
支持

报名不报名啊,不报名,就当你是路人丙了 ^_^

为什么都是打酱油，他就可以插队变成丙…

jp…也不错吗，我们打游戏的时候叫极品装备都叫jp的，包括我的头像就是jp，不过现在已经沦为lj了…

因为你是XP家族一员,怎么可以打酱油呢,AP会伤心的.
帮我找人来啊,黑店开得越大越好哦

俺也报名，别分学号了，每人分配个英文名好了

这下得好好折腾一下…..

希望至少以后拿着金山词霸看MSDN时不会太茫然…

我来报名，我也要参加，希望你真心的办下去，不要忽悠我们。

手机 : 13718443852

MSN: wge83@hotmail.com

我也参加

晕，班里没一个女同学！

引用 63 楼 net_lover 的回复:
晕，班里没一个女同学！

估计要暴晒30天了

引用 64 楼 jinjazz 的回复:
引用 63 楼 net_lover 的回复:
晕，班里没一个女同学！

估计要暴晒30天了

我看是60天……….

引用 63 楼 net_lover 的回复:
晕，班里没一个女同学！

老孟你装个女的好了,老孟见客来.

怎么个学法？什么时间？

报个名先。

偶，报名

请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。

引用 70 楼 canylove 的回复:
请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。

同意上个的意见。

引用 70 楼 canylove 的回复:
请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。

这个待考虑,总之是灵活式的

itcase也可以试试哦

总之,作业,考试是一定会有的

内容要做老师的来决定.

现在是初步报名,正式报名的时候,就开始会告诉你们方法了.

大概时间会在8月初或者8月中开始 (要考虑奥运会 ^_^ )

第一批成员最多20人.办得好的话,可以考虑下一批.

如果英语办得好.我们可以联系其他讲师 ^_^ 现在只能自己小打小闹一下.

光说教师和教导主任了，没看到校长，难道莫MM就是校长？

我要报名。

关注，拿分~

哈哈我报名

有作业还有考试，不知道有家长会没有，不及格要不要补考，补考不及格要不要重修…

先拿分
再报名
交分开发票不嘿嘿

偶也加入,英文太烂了

我是校长我就发财咯~~~

我要发财我要发财,嘿嘿.

不及格的出赞助就可以了.^_^.

可以开发票啊,我给你个萝卜章的发票哦.

分够就报名

我也比较感兴趣,不知道有什么条件,自我感觉E文很差

条件是:至少能分得清楚 26个字母,会读出来. 有耐心,能坚持者.

现在已报名暂27人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
java375378563
stning
jaksuse
shirleyliujingyi
frozenfood
thwen0101
tianyalangren
jiezhanyang
Herod21
zergcsda
老师 clear_zero
教导主任: TechnoFantasy

看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)

无视的路人丁:only_endure

拿分没门的路人戊：qinbuer

咨询路人之：rockyvan

一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)

我也参加一下，英语一直是软肋

我也参加一下，英语一直是软肋
我也参加一下，英语一直是软肋

报名报名..就会ABC,怎么学啊

我来说明下哈，我就是Yaqi

大家集思广义看看怎么才能更好的学习英文。

一个人学习比较孤单，不用长久。大家绑一块比较容易坚持

听
说
读
写

我想想，大家也想想

how much?

我也报名,LZ不能丢下我

报个名，攒了好几年的可用分了..

接不接收旁听生呀，就是不准时上课，不交作业的那种。

主要是基础太差

学费还是会交的哦。

具体方法是怎样

why not 不报名？

算我一个. ^_^

引用 80 楼 daisy8675 的回复:
我是校长我就发财咯~~~

我要发财我要发财,嘿嘿.

不及格的出赞助就可以了.^_^.

可以开发票啊,我给你个萝卜章的发票哦.

我现在就愁分太多啊，既然你能开萝卜章的发票，哪就赞助你一下了，开发票时，多写点儿

偶读书英语就没及过格不晓得行不行我写作业都找英语字典哎那日子苦啊
校长算我个否?

ME

引用 91 楼 leo2003 的回复:
接不接收旁听生呀，就是不准时上课，不交作业的那种。

主要是基础太差

学费还是会交的哦。

不接旁听生哦.

偶们开黑店,也是开正亏黑店

所谓,黑要黑得响亮!

欢迎所有报名的同学们.

大家都是什么水平呢？

Drive to halt straw burning sees Chinese farmers 'go green'

GOV.cn Tuesday, June 24, 2008

The summer harvest was over.

Watching a machine crush the wheat stubble in the field, Gao Chengli recalled the days when he was choked by smoke from burning straw and wary of local officials' scrutiny.

"We didn't get it at first," said the 40-year-old Gao, referring to China's ban on burning waste stalks, which began in 1999.

"Farmers even set fires secretly because it was convenient."

In the run-up to the Olympics, Chinese farmers like Gao have shifted from matches to machines as the government strives to keep Beijing from being smothered by smoke.

Officials are using many approaches, ranging from the carrot of subsidies and the stick of fines to satellite monitoring and straw-to-power projects.

Beijing farmers had adopted the conservation farming approach, which leaves stubble in the soil to increase organic matter, on more than 80 percent of all farm land since 2006, said the Ministry of Agriculture on Monday.

"The achievement was significant for reducing dust in Beijing, cutting straw burning and improving the capital's environment for the Olympics," the ministry quoted Minister Sun Zhengcai as saying in a statement.

Straw burning in the Beijing suburbs, which extend far beyond the city center, used to cause thick smog in the capital proper, closing highways and disrupting airport operations.

Smoke from the farms south of Beijing was blown north last June,polluting the capital's sky for days.

For Gao, who owns about 0.38 acres of land in Zhengding County, Hebei Province, which borders Beijing, the solution was a crushing machine organized by the township government.

In Beizaoxian, another town in the county, 200,000 yuan (28,571U.S. dollars) was allocated by the township government to subsidize farmers' purchase of farm machines, including the stubble-crushing machine.

"Farmers have gradually come to understand the harm of burning waste straw and voluntarily adopted crushing," said Zheng Wei, an official with the Zhengding government.

In some parts of China, the issue turned bitter for local officials. Four town-level officials were suspended last week for not doing enough to stop straw burning in Xi'an, capital of the northwestern Shaanxi Province.

To keep the sky clear for the Olympics, the central government expanded the no-straw-burning areas in May and imposed a full-scale ban in Beijing and eight regions neighboring or south of the city through September.

The China Meteorological Administration said that satellite monitoring picked up 1,762 fires set on farm land from June 2 to 15, down 22 percent from the period between June 4 and 17 last year.

Satellite technology was introduced in 2004 in an effort to reduce the outlawed practice of straw burning, and this system of monitoring detected 2,989 fires in 2007, up from 2,481 in 2004.

"Farmers had their own reasons." said professor Cheng Xu of the China Agricultural University (CAU).

Cheng said that farmers often had little time to clear the land of one crop before having to plant another, so fire was often the fastest option.

China's agricultural areas saw about 700 million tons of waste straw left after harvests each year.

By the end of 2007, mechanical stubble crushing had been applied on 327 million mu (21.8 million hectares) of farm land, about one sixth of the country's total, according to the ministry.

"About 30 percent of China's waste straw goes unused," said another CAU professor, Meng Qingxiang. "The waste straw is not 'waste' at all but a precious resource, and we must let people know that."

Straw has several uses, including livestock feed, methane production, a source of solid fuel or electricity generation, said Cheng.

Li Jing, deputy head of the National Development and Reform Commission's (NDRC's) resource conservation and environmental protection department, urged China to speed up the comprehensive use of waste straw.

China is considering ways to use more than 80 percent of its waste straw by 2015, according to officials with the NDRC.

Editor: An Lu
Source: Xinhua

报名啦

报名
报名报名
报名报名报名
报名报名报名报名
报名报名报名报名报名
报名报名报名报名报名报名
报名报名报名报名报名报名报名
报名报名报名报名报名报名报名报名

前面报名被MMM无视了，再报

各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：

I will go to sleep.

这句话翻译成中文，怎么说最恰当？

我要去睡觉了..

引用 103 楼 net_lover 的回复:
各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：

I will go to sleep.

这句话翻译成中文，怎么说最恰当？

我会去睡觉？

老孟你基本上够丰满了，请保持体形。

还有这么好的事~
我一定要报名

奖励什么的就不用了每天有冰激凌吃就可以了~

怎么对话啊？说说条件呢

引用 105 楼 Modest 的回复:
引用 103 楼 net_lover 的回复:
各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：

I will go to sleep.

这句话翻译成中文，怎么说最恰当？

我会去睡觉？

老孟你基本上够丰满了，请保持体形。

一般这样说
I am going to sleep 或者 I am going to bed
比较口语化，不过你说的也是对的

真是太好了。我要来哦

Is true
I think 报名
还要不

我必须报名

引用 3 楼 myjian 的回复:
嘿呀,嘿嘿~~

我来也~~

想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?

报名 ,报名 , 楼主, 我要摆脱english半文盲状态

学不来了
热贴留名……

我也报名，这个主意不错！

多好可以和女同学聊天还可以聊女老师喜欢

引用 3 楼 myjian 的回复:
嘿呀,嘿嘿~~

我来也~~

想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?

我要报名… …

我也想学呀！

大家说说都想学些什么

网上教很难阿，可以用到的工具

1csdn平台
2msn群
3skype

我就知道这么多了

我们都想想什么方法比较好

引用 120 楼 clear_zero 的回复:
大家说说都想学些什么

网上教很难阿，可以用到的工具

1csdn平台
2msn群
3skype

我就知道这么多了

我们都想想什么方法比较好

有在线的chat 比如ms 的webcast.

QQ群也是一个联系方式哦

不是所有人都能上qq的

QQ群，msn我都没问题，问题是什么时间。呵呵

引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code

名字：影子
ID：  zyg0
性别：男
爱好：女

引用 124 楼 Modest 的回复:
引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code名字：影子
ID： zyg0
性别：男
爱好：女

引用 125 楼 myjian 的回复:
引用 124 楼 Modest 的回复:
引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code名字：影子
ID： zyg0
性别：男
爱好：女

咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷼ/td>

引用 127 楼 xiaoya317 的回复:
咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷠ

鸭蛋做校花吧

米钱怎办?

引用 128 楼 Modest 的回复:
引用 127 楼 xiaoya317 的回复:
咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷠ

鸭蛋做校花吧

不交学费刑行不行啊？
俺要攒的那点分要用来娶媳妇呢….

按照什么学习呢？

生活场景？技术知识？

生活场景，可以按照如何在国外生活来说。
比如
机场
交通工具
…

技术知识，我就不知道了

大家出主意阿

我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！

引用 31 楼 viena 的回复:
please enter my name

没学之前，只当胡话。请用标准地球人类语再叙述一遍，ok？

报名

引用 134 楼 Modest 的回复:
引用 31 楼 viena 的回复:
please enter my name

没学之前，只当胡话。请用标准地球人类语再叙述一遍，ok？

标准火星人类语行不?

引用 2 楼 aiirii 的回复:
支持~~~，观望~~

报名

我要去睡觉
可以报名了吧~!
不过没分（＾＠＾）

引用 126 楼 hero0617 的回复:
引用 125 楼 myjian 的回复:
引用 124 楼 Modest 的回复:
引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code名字：影子
ID： zyg0
性别：男
爱好：女

我们这里也会这么说
Sex Male
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明性取向。:)

引用 140 楼 clear_zero 的回复:
我们这里也会这么说
Sex Female
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明yaqi是拉拉。:)

引用 133 楼 slimfeng 的回复:
我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！

因为他被暴晒得他的钻石都没有了.

引用 142 楼 daisy8675 的回复:
引用 133 楼 slimfeng 的回复:
我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！

因为他被暴晒得他的钻石都没有了.

晒化了

引用 2 楼 aiirii 的回复:
支持~~~，观望~~

你怎么给大家上课呢？？？？
我要报名

引用 141 楼 viena 的回复:
引用 140 楼 clear_zero 的回复:
我们这里也会这么说
Sex Female
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明yaqi是拉拉。:)

这样就是了，我们单位某部门大姐就是同性婚姻。幸福的一对阿
这是我身边第一对同性走入婚姻殿堂的

我很想学！！！！！！！！

y8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
java375378563

越来越水了

我提个建议吧，我就把来英国的生活按照时间顺序，分场景写出来。
每个场景一些短小的对话

尽量把每个对话录音下来(我是说尽量)

下周开始

大家可以发表下一件，想如何学习

引用 145 楼 clear_zero 的回复:
引用 141 楼 viena 的回复:
引用 140 楼 clear_zero 的回复:
我们这里也会这么说
Sex Female
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明yaqi是拉拉。:)

这样就是了，我们单位某部门大姐就是同性婚姻。幸福的一对阿
这是我身边第一对同性走入婚姻殿堂的

真有此事？

引用 149 楼 zzyong00 的回复:
引用 145 楼 clear_zero 的回复:
引用 141 楼 viena 的回复:
引用 140 楼 clear_zero 的回复:
我们这里也会这么说
Sex Female
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明yaqi是拉拉。:)

这样就是了，我们单位某部门大姐就是同性婚姻。幸福的一对阿
这是我身边第一对同性走入婚姻殿堂的

真有此事？

天，连性取向也八…

我们单位大姐是真事，俺们单位还有更..的呢
我不是

英国还允许同性婚姻啊
不知道同性婚姻有何意义，又不能生孩子~

引用 150 楼 clear_zero 的回复:
天，连性取向也八…

我们单位大姐是真事，俺们单位还有更..的呢
我不是

更..的是啥？

英语学来比较有用，但其实我更想学的是德语
Ich wollte gehen nach Wien ~

我也报名举手～～～

VB怎么连接数据库…急!!!!!!!!!!
要用户密码等.

Imports System.Data

Dim sqlConnection1 As SqlClient.SqlConnection
Dim strConnect As String="data source=服务器名;initial catalog=数据库名;user id=sa;password=;"

sqlConnection1=New SqlClient.SqlConnection(strConnect)
try
sqlConnection1.open ‘打开数据库
msgbox("OK")
sqlConnection1.close ‘关闭连接，释放资源
catch ex As exception
msgBox(ex.message)
end try

###################或者
Public CNN As New ADODB.Connection
Public GclsReaderGroup As New GzReader

Public GstrMealCardReaderTabOption As String

Sub Main()
Dim strCnn As String
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DasIcCard;Data Source=(Local)"
CNN.ConnectionString = strCnn
CNN.CursorLocation = adUseClient
CNN.Open
frmMain.Show

End Sub
'Get the CardID
Public Function GetCardID(ByVal PressworkID As String, ByVal EmpName As String) As Long
On Error GoTo Myerror
Dim strSQL As String
Dim rs As New ADODB.Recordset
Dim CardID As Long
strSQL = "select cCard.CardID From cCard inner join cEmployee on cCard.CardID=cEmployee.MainCardID"
strSQL = strSQL & " where cCard.PressWorkID='" & Trim(PressworkID) & "' and cEmployee.EmployeeName='" & Trim(EmpName) & "'"
Set rs = CNN.Execute(strSQL)

CardID = rs.Fields(0).value

GetCardID = CardID
Set rs = Nothing
Exit Function
Myerror:
MsgBox Err.Description
GetCardID = 0
Resume Next

End Function

记得给分！！！！！！！！！！！！！！！！

楼上的同学，那是VBNET的

2楼给了2套代码，第1套是NET
第2套是VB

你首先建个新的数据库,然后设计个新的数据表.然后用ADO控件
Adodc1.RecordSource = "select * from table_sumdates "
Adodc1.Refresh
text1.text = adodc1.recordset.fields("字段名")
这个text1.text 就是你的用户名,然后你把text2.text的输入密码与数据库里的数据对比一下对了就进入系统,错误不能时,这样就完成了.

如果有问题发我的tanghao83@126.com就行

上GOOGLE一找一大把哟.

'连接字符串
Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1"
'查询users表中全部信息
Adodc1.RecordSource = "select * from businessman"
'用datagrid显示查询信息
Set DataGrid1.DataSource = Adodc1

Imports System.Windows.Forms.ListViewItem.ListViewSubItem
Imports System.IO

Public Class Form1
Friend WithEvents lvtanaorosisentaku As System.Windows.Forms.ListView
Friend WithEvents CheckBoxes As System.Windows.Forms.CheckBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Inherit
Me.Controls.Add(Me.lvtanaorosisentaku)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "アドレス選択"
Me.ResumeLayout(False)
Me.adoresusenntaku.Items.Clear()

Me.adoresusenntaku.CheckBoxes = True
Me.adoresusenntaku.Columns.Clear()
Me.adoresusenntaku.Columns.Add("", 100, HorizontalAlignment.Left)
Me.adoresusenntaku.Columns.Add("名称", 170, HorizontalAlignment.Left)
Me.adoresusenntaku.Columns.Add("メールアドレス", 170, HorizontalAlignment.Left)
Me.adoresusenntaku.HeaderStyle = ColumnHeaderStyle.Clickable

Me.adoresusenntaku.View = View.Details
Dim Path As String
Dim streamRead As StreamReader
Dim strLine As String
接来下怎么在LISTBOX中..加入行数据??特别是在CHECKBOX中加入.急

我的SQL语句用了 3个INNER JION 然后在where中加了三个条件
从2万条数据中筛选数据，我点击了一下，去解手了，回来之后，刚好看到命令结果弹了出来！

在数据库里面做个视图嘛

你确定是2万记录？ 3 个 join 就是 4 个表的记录数相乘！

估计索引没用上，where 条件字段上加索引试下，条件先后顺序也要考虑

大家说的都很有道理，多谢

解手速度是快還是慢？

这种情况，用存贮过程写吧，分开查，把INNER JION 的中间结果写出来，分层筛选，看起来代码复杂，不过实际执行时，要比一条SQL快很多。当然是数据量较大时才行。

解手？
是什么意思？新名词？

大手小手？

靠。晕！

哈哈

where 条件算法要几吨硬盘来存?

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Boolean
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetCapture Lib "user32" () As Long
Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim pt As POINTAPI
Dim Rc As RECT

pt.x = Me.ScaleX(x, vbTwips, vbPixels)
pt.y = Me.ScaleY(y, vbTwips, vbPixels)

Call GetWindowRect(Me.Command1.hwnd, Rc)

If Not PtInRect(Rc, pt.x, pt.y) Then
Me.Command1.Caption = "Error"
ReleaseCapture
Else
Me.Command1.Caption = "OK"
If GetCapture <> Me.Command1.hwnd Then SetCapture Me.Command1.hwnd
End If

End Sub

注：
当PtInRect声明为以下格式时总返回0
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
当PtInRect声明为以下格式时总报Bad DLL calling convention错误
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, pt As POINTAPI) As Long
请大家帮忙解释一下

还有 PtInRect() 的返回值：
ⷃ 中的 BOOL 是 4 字节，VB 中不是用 Boolean 而是用 Long 对应。
̤ⷨ𘔠C 中用 {0,1} 表示 {false,true} ，在 C 中取 Not 为 {1,0}；但是到 VB 中取 Not 为 {-1,-2} 都为 True，所以对 API 的 BOOL 返回值 VB 中应该用是否为 0 进行判断，不能等同于 Boolean。