VB的for循环该怎么写?

1、首先，我们输入For关键字。

2、然后我们定义一个循环变量。

3、然后我们写入【1 to 10】。

4、然后我峨眉呢输入【Next i】结束。

5、然后我们就可以在这里输入每次执行的语句。

6、最后运行就可以看到这个结果了。

必须安装mysql的驱动才行，不管是vb还是c++都需要这个驱动。

代码如下：

public

function

exemysql(byval

sql

as

string)

as

adodb.recordset

sql

=

trim$(sql)

set

conn

=

new

adodb.connection

set

rs

=

new

adodb.recordset

conn.open

"driver=mysql

odbc

3.51

driver"

&

_

"server=服务器地址"

&

_

"port=3306"

&

_

"database=数据库名"

&

_

"uid=用户名"

&

_

"pwd=密码"

conn.defaultdatabase

=

"数据库名"

conn.cursorlocation

=

aduseclient

set

rs.activeconnection

=

conn

rs.locktype

=

adlockbatchoptimistic

rs.cursortype

=

adopenkeyset

rs.open

sql

set

exesql

=

rs

set

rs

=

nothing

set

conn

=

nothing

end

function

---