VB程序员博客

从文本文件里读入这样一行字符串
"abc","def",,,"bdd"
实际上对应5个字段的值，
但是用Split函数处理后，得到的是前2个子串
有什么方法可以得到和原串一样的结果吗？
字符串有问题。应该把它们连接起来，象这样：
Dim s As String
s = "abc,def,,,bdd"

c:choujiang.txt——"abc","def",,,"bdd" 在其中,咋会是前2个子串?不会.Dim str As String
Dim a() As String

str = "abc,def,,,bdd"
a = Split(str, ",")<
<

从文本文件里读入这样一行字符串
"abc","def",,,"bdd"
实际上对应5个字段的值，
但是用Split函数处理后，得到的是前2个子串
有什么方法可以得到和原串一样的结果吗？
字符串有问题。应该把它们连接起来，象这样：
Dim s As String
s = "abc,def,,,bdd"

c:choujiang.txt——"abc","def",,,"bdd" 在其中,咋会是前2个子串?不会.Dim str As String
Dim a() As String

str = "abc,def,,,bdd"
a = Split(str, ",")<
<

BOOL AddData(char *table)
{
_bstr_t strSQLpov("SELECT * FROM table");
try
{
pRecordset->Open(strSQLpov,
pConnection.GetInterfacePtr(),//获取连接库的IDispatch指针
adOpenDynamic,
adLockOptimistic,
adCmdText);
}
catch(_com_error e)
{
MessageBox(NULL,TEXT("请检查user.mdb中表是否存在！"),TEXT("读取数据表出错"),MB_OK);
return FALSE;
}
}
这样不对。哪位教教小弟

如何能把工程中所有函数的第一个语句（即Functoin语句）一下子都自动设置一个断点
不用啊
debug选择step into。<
没简单方法。
ctl+F. 'function' f9 ,ctl+F, f9…<
你要的功能没什么意义，你又不能一下子调试所有函数。

你应当这样做：选择一个或几个适当的断点，然后用[逐句]或[逐过程]调试就可以了。
楼主写个插件来完成吧。

VB6的IDE貌似不支持这功能.

你可以使用带正则的文本编辑器,例如UE,来在所有工程源代码文件(*.FRM,*.BAS,*.CLS等)中FUNCTION行的后面插入一句Stop.

这样的话每个函数运行时就会中断下来.老马，你干脆帮ta搞个插件算了………….

Shift+F8

比如，我想找一下String将字符串所有字符全部转化为大写的，在c语言中有对应的函数，可是在VBA中对应的函数是什么，因为是入门的，不清楚，使用F1也找不到帮助信息
请大侠指点一下方法

Ucase()

你可以去查 MSDN 啊.

google之

有没有相关的文档，很多时候都不能上网

声明如下：
Declare Function ReadEventLog Lib "advapi32.dll" Alias "ReadEventLogA" (ByVal hEventLog As Long, ByVal dwReadFlags As Long, ByVal dwRecordOffset As Long, lpBuffer As EVENTLOGRECORD, ByVal nNumberOfBytesToRead As Long, pnBytesRead As Long, pnMinNumberOfBytesNeeded As Long) As Long
出现用户定义类型未定义的错误！有大虾在vb中用过这个函数吗！给个列子！谢谢

在VB中打开SQL函数返回的表后，如何是RecordCount不返回-1
返回sql函数返回的表的正确条数

检查你的sql语句
先在数据库中运行看

把你的sql语句在sql查询分析器中执行看看…

使用sql返回的表，有记录的，

是用SQL函数返回的表，而且是有记录的

把您的语句贴上来。

select * from dbo.getInventory_JITInventory_fun('" & CZYname & "')

楼主您是否是想查询('" & CZYname & "') 定义的内容在表里有多少条？

rs.CursorLocation = adUseClient

要返回recedcount，要设置客户端游标，如楼上open前面加上：rs.CursorLocation = adUseClient

谢谢你们！问题解决了

api函数ras函数里边有一个
AddConnection("连接名", "", "", username, Password, "")
这样就可以连接。但是他要输入账号和密码
我想问的是。直接使用已有的连接名称。直接来调用。比如我已经有了几个连接。比如是qqq,eee,xxx这些都是我的连接
该怎么作。不能使用shell "rasdial xxx"来调用。
因为我需要返回一个值来判断是不是连接通或者忙。或者其他原因
shell "rasdial qqq" '这样就可以直接调用。。api有没有这样的功能。
调用之后把值付给一个xxx=命令
然后根据xxx的值进行判断是否连接成功或者其他原因。

我用路由器的….路过顶下…

试过InternetDial吗，如果这个API可用的话，它会返回一个long，不为0好像就表示拨号成功。
我用路由器不好测试，楼主自己试试看。

RasDial Function

The RasDial function establishes a RAS connection between a RAS client and a RAS server. The connection data includes callback and user-authentication information.
http://msdn.microsoft.com/en-us/library/aa377004(VS.85).aspx

RasGetConnectStatus Function

The RasGetConnectStatus function retrieves information on the current status of the specified remote access connection. An application can use this call to determine when an asynchronous RasDial call is complete.
http://msdn.microsoft.com/en-us/library/aa377503(VS.85).aspx

RasGetConnectionStatistics Function

The RasGetConnectionStatistics function retrieves accumulated connection statistics for the specified connection.
http://msdn.microsoft.com/en-us/library/aa377499(VS.85).aspx

我的意思是。我使用的是adsl拨号连接。就是xp这个。正常。我们是双击他。然后就出来一个连接窗口。点连接就上了。
所以只要启动他连接就ok。。好久没来了。结贴先。呵呵。

m_arryName = Split(m_colName.Item(nItem), ",")，其中m_colName.Item(nItem)的值是“ODM规格，0”。
问Split函数返回的值，同时 m_arryName（1）的值是多少？

如果
m_colName.Item(nItem) = "ODM规格，0"

m_arryName = Split(m_colName.Item(nItem), ",")

m_arryName(1) 不存在，索引超标。因为没有找到分隔符 ","。（"，" <> ",")

0

即便正确分割，也是 "0"，而不是 0。

m_colName.Item(nItem)的值是:ODM规格，0
我的写法引起了误会，不好意思啊 ，可以把split这个函数解释一下吗?谢谢

返回值数组 = Split("字符串","分割符")
　　假设变量strURL保存着URL值，如strURL = "ftp://username:password@server";，这是我们在ＩＥ中登录到FTP上时的ＵＲＬ形式，如果把其中的username和password取出来。首先，找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号作为Split函数的"分割符"来分割整个字符串，最后达到取username和password的目的。代码如下：
　　strURL = "ftp://username:password@server"
　　aryReturn = Split(strURL,":")
　　这样我们就把字符串用冒号分割开了，分割后的结果保存在aryReturn中（aryReturn是一个数组）。

如果一个MSHFLEXGRID里的每个CELL的数字都是除不尽的数，比如，3.33333333这是要显示的是3.33 该怎么设置啊

mshflexgrid1.textmatrix(i,j)=format(val(mshflexgrid1.textmatrix(i,j)),???)

???问号那里怎么设置啊

mshflexgrid1.textmatrix(i,j)=Format(CSng(mshflexgrid1.textmatrix(i,j)),"standard")

'取整后等于原值，则用原值，否则格式化
with hflexgrid
    if int(.textmatrix(i,j)) <>.textmatrix(i,j) then
        .textmatrix(i,j)=format(.textmatrix(i,j),"###0.000")
    end if
end with