Dim savecn As New ADODB.Connection
Dim ckpartno As New ADODB.Recordsetsqlstring = "select distinct partname from eng_ppll_D where partname<>''
Set ckpartno = savecn.Execute(sqlstring)
If ckpartno.EOF <> True Then
sqlstring = ""
Do While ckpartno.EOF <> True
sqlstring = sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
ckpartno.MoveNext
Loop
MsgBox Detail.FormattedTextRC(i, 1) & "在系統中有其他的名稱,分別為" & Chr(13) & Chr(10) & sqlstring & "你需要重新建立編號!"
End If
ckpartno.Close
End If
Next
End If
Dim ckpartno As New ADODB.Recordsetsqlstring = "select distinct partname from eng_ppll_D where partname<>''
Set ckpartno = savecn.Execute(sqlstring)
If ckpartno.EOF <> True Then
sqlstring = ""
Do While ckpartno.EOF <> True
sqlstring = sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
ckpartno.MoveNext
Loop
MsgBox Detail.FormattedTextRC(i, 1) & "在系統中有其他的名稱,分別為" & Chr(13) & Chr(10) & sqlstring & "你需要重新建立編號!"
End If
ckpartno.Close
End If
Next
End If
解决方案 »
- 编程高手请进——用C#搭建消息框
- 关于VS2008自带安装部署中多语言切换的问题
- ********问题不大、难度不小、高分相送*********
- 一个简单的问题,在UrlReWrite中,如何读出、然后进行添加、删除或修改,最后保存RewriterRule中的LookFor和SendTo?谢谢。
- 怎样将access中的某一个表导入到excel中,在不知道access表模式的情况下.
- 什么样的软件最有发展?
- 一字符串如何用MD5 hash算法得出的hash串,并转化为可读的16进制字符串
- datagrid显示部分数据???
- GridView 列左右移动
- C#里怎么有string和String两个?
- 如何在两窗体间传递数据 c# ???
- 高难度的“鬼谷子”,大家帮帮我~~~~~~~~~
Dim ckpartno As New ADODB.Recordsetsqlstring = "select distinct partname from eng_ppll_D where partname<>''
Set ckpartno = savecn.Execute(sqlstring)
If ckpartno.EOF <> True Then
sqlstring = ""
Do While ckpartno.EOF <> True
sqlstring = sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
ckpartno.MoveNext
Loop
MsgBox Detail.FormattedTextRC(i, 1) & "在系統中有其他的名稱,分別為" & Chr(13) & Chr(10) & sqlstring & "你需要重新建立編號!"
End If
ckpartno.Close最主要的是Do While ckpartno.EOF <>tRUE
SQLSTring=sqlstring&ckpartno.Fields(0).value&CHAR(13)&CHR(10)
ckpartno.MoveNext
Loop
這個地方如何寫
{
SQLSTring = String.Format("sqlstring{0}{1}{2}",ckpartno.Fields(0).value,CHAR(13),CHR(10));
ckpartno.MoveNext();
}
大体上这么写就可以了
objConn.Open();string strSqlStr = "select distinct partname from eng_ppll_D where partname<>";DataReader objDr = new DataReader();
objDr.selectCommand = new Command(strSqlStr, objConn);if (objDr.HasRow)
{
while (objDr.Read())
{
//等等。
}
}
哈哈哈~随便谢谢。
第二:妳們有沒有看到sqlstring(1) = "select distinct partname from eng_ppll_D where partname<>''
sqlstring (2)= sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
(2)是在(1)的基礎上查詢的嗎?
我指導(知道)可以用嵌套子查詢實現﹐把兩個sqlstring加起來﹐用myread.nextresult
就可以實現﹐但因為中間還有一個整型變量要根据第一條語句來控制﹐所以只能分開