标签: vb.net-2010

我已经阅读了有关Tuples新.NET Framework功能的提供,并且我仍然想知道它如何在实际的企业应用程序中有用.

可以给我一个简短的解释以及一个简单但真实的代码示例吗？

谢谢!=)

我使用以下代码

发生此错误:

尝试读取或写入受保护的内存.这通常表明其他内存已损坏.尝试读取或写入受保护的内存.这通常表明其他内存已损坏.

Public Class FormRegEnumValue

Private Const ERROR_SUCCESS = 0&
Private Const ERROR_NO_MORE_ITEMS = 259&
Private Const HKEY_CURRENT_USER = &H80000001

Private Const REG_BINARY = 3
Private Const REG_DWORD = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_SZ = 1

Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, ByVal lpcbValueName As Long, ByVal lpReserved As Long, ByVal lpType As Long, ByVal lpData As Object, ByVal lpcbData As …

我使用以下代码访问VSS项目：

Dim sItem As String = "$/MyVssProject/InexistentFile.txt"
Dim oItem As SourceSafeTypeLib.VSSItem = Nothing
Try
  oItem = m_oSourceSafe.VSSItem(sItem)
Catch ex As Runtime.InteropServices.COMException
  MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Catch ex As Exception
  MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try

我面临的问题是，当我尝试将实例获取到VSSDB中不存在的文件时，从而导致COMException，这基本上不会出现问题（我希望如此）。实际上，发生了异常，但是调试光标没有停留在捕获代码上，而是停留在“ oItem = m_oSourceSafe.VSSItem（sItem）”行上，显示标题为“ COMException越过本机/托管边界的对话框”。

从这里开始执行不会执行，直到我将sItem的内容更改为现有文件。

为什么未捕获到异常，如何实现？

环境：WinXP SP3 x86上带有.Net 2.0的VS2010

谢谢队友！

我听说框架4中有一个字段扩展方法允许一个接收来自datareader的空值,而不必经过第一次测试的过程,如果不是null然后......等等.这里有关于扩展方法的信息(MSDN)),但我不知道如何在代码中使用它(相对较新的.net和以前从未使用过的扩展方法).如果有人能举一个例子,我将不胜感激.

这是我试图实现的,但是当在任一列中返回dbnull时它会返回错误.

Reader.Read()
Dim Val As Nullable(Of Double) = Reader.GetDecimal(0)
Dim Vol As Nullable(Of Long) = Reader.GetInt32(1)

好的一天,所有.

我知道这对于MVC而言是一个非常基本的问题,但我不能为我的生活得到@ Html.RenderPartial不给我错误.我正在使用VB.NET和Razor.我在网上找到的大多数例子都是用c#编写的,这对我来说并不难转换,但这个简单的例子让我感到难过.这是在我的索引视图中,由_Layout.vbhtml呈现:

@Section MixPage
    @Html.RenderPartial("_MixScreen", ViewData.Model)
End Section

上面的表达式不会产生值.

今天早上我已经看了很长一段时间,我所采用的例子如下:

http://geekswithblogs.net/blachniet/archive/2011/08/03/walkthrough-updating-partial-views-with-unobtrusive-ajax-in-mvc-3.aspx

从控制器内部获取部分视图的HTML

最终,我要做的是从控制器返回并更新模型到局部视图:

    Function UpdateFormulation(model As FormulationModel) As ActionResult
        model.GetCalculation()
        Return PartialView("_MixScreen", model)
    End Function

并且该控制器是从javascript中的表达式调用的:

function UpdateResults() {
    jQuery.support.cors = true;
    var theUrl = '/Home/UpdateFormulation/';
    var formulation = getFormulation();
    $.ajax({
        type: "POST",
        url: theUrl,
        contentType: "application/json",
        dataType: "json",
        data: JSON.stringify(formulation),
        success: function (result, textStatus) {
            result = jQuery.parseJSON(result.d);
            if (result.ErrorMessage == null) {
                FillMixScreen(result);
            } else {
                alert(result.ErrorMessage);
            }
        },
        error: function (xhr, result) {
            alert("readyState: " + …

我一直在搜索这几个小时,无法弄清楚这个问题.有人可以帮我这个吗？我在VB.NET 2010中执行SQLXMLBULKLOAD时遇到上述错误.我已尝试更改我的xml声明,我的架构属性,并且无法通过此错误.这似乎是微不足道的,但我无法弄清楚.请帮忙

        <?xml version="1.0" ?>
     <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sql="urn:schemas-microsoft-com:mapping-schema">
        <xsd:element name="Employees" sql:is-constant="1">
            <xsd:complexType>
                <xsd:sequence maxOccurs="unbounded">
                    <xsd:element name="Employee" sql:relation="the_Employees">
                        <xsd:complexType>
                            <xsd:sequence maxOccurs="unbounded">
                                <!--<xsd:element name="id" type="xsd:integer" />-->
                                <xsd:element name="EmployeeID"sql:field="EmpNo">
                                    <xsd:simpleType>
                                        <xsd:restriction base="xsd:string">
                                            <xsd:whiteSpace value="collapse"/>
                                        </xsd:restriction>
                                    </xsd:simpleType>
                                </xsd:element>
                                <xsd:element name="FirstName"sql:field="FirstName">
                                <xsd:simpleType>
                                    <xsd:restriction base="xsd:string">
                                        <xsd:whiteSpace value="collapse"/>
                                    </xsd:restriction>
                                </xsd:simpleType>
                            </xsd:element>
                            </xsd:sequence>
                        </xsd:complexType>
                    </xsd:element>
                </xsd:sequence>
            </xsd:complexType>
        </xsd:element>
    </xsd:schema>

我正在使用vb.net,我想检查Active Directory中是否存在特定用户.如果是,我想显示特定用户的详细信息.怎么做？

用户登录凭据通过文本框控件传递

我的代码:

 Dim de As DirectoryEntry = GetDirectoryEntry()
 Dim ds As DirectorySearcher = New DirectorySearcher(de)
  ds.Filter = "(&(objectClass=txt1.text))"

    ' Use the FindAll method to return objects to SearchResultCollection.
    results = ds.FindAll()

Public Shared Function GetDirectoryEntry() As DirectoryEntry
    Dim dirEntry As DirectoryEntry = New DirectoryEntry()
    dirEntry.Path = "LDAP://ss.in:389/CN=Schema,CN=Configuration,DC=ss,DC=in"
    dirEntry.Username = "ss.in\ssldap"
    dirEntry.Password = "ss@123"
    'Dim searcher As New DirectorySearcher
    'searcher.SearchRoot = dirEntry
    Return dirEntry
End Function

我传递密码的地方.这段代码是否正确？我是AD的新手.请帮我这样做？

您好,这是我在vb.net中使用ms visual studio 2010的第一个项目,我想创建一个可以将参数发送到transact-sql数据库中的存储过程的类,我知道如何在vb 6中执行它,但我不是确定这是否是在这里做到的正确方法.

Imports System.Data.SqlClient

Public Class ClsLineas

Public Sub Inserta(ByVal GridLineas As DataGrid, _
                   ByVal numero As String, _
                   ByVal tipo As String, _
                   ByVal estado As String, _
                   ByVal anexo As Integer, _
                   ByVal fechaInicio As String, _
                   ByVal fechaFin As String, _
                   ByVal pcReg As String, _
                   ByVal observaciones As String, _
                   ByVal usuReg As String)

    Dim cnx As SqlConnection = New SqlConnection(ClsCon.connectionString)
    'ClsCon.connectionString is a class that contains the connection string 
    Dim cmd As …

试图在Excel工作表中写入信息但是有一些奇怪的问题;)我在Google上查看了信息但没有结果..所以请帮助)

我添加引用Microsoft.excel 14.0对象库,并导入Microsoft.Office.interop

我需要从特定单元格中获取值,因此我使用命令Checker = shXL.cells(1,1).在这里我没有价值....我只有这个(Equal/GetHashCode/GetType/toString)所以问题是为什么我没有(.Value).cells和哪里是一个错误

        Dim appXL As Excel.Application
        Dim wbXL As Excel.Workbook
        Dim wbsXL As Excel.Workbooks
        Dim shXL As Excel.Worksheet
        Dim Checker As Integer

        appXL = CreateObject("excel.application")
        appXL.Visible = True

        wbsXL = appXL.Workbooks
        wbXL = wbsXL.Open("D:\???????????? ????????????\Base.xlsx", , , , 12121)
        shXL = wbXL.ActiveSheet
        Checker = shXL.Cells(1, 1).value()

最诚挚的问候和THX!

我在想是否可以使用 cmd 而不使用 SQL Server 配置管理器将 SQL Server 2008 实例 TCP 端口更改为 1433。

我只想将它应用到我的应用程序设置中，我的客户希望它处于多用户模式。

我知道如何使用 cmd 启用 TCP/IP。而且我知道如何创建脚本以允许 Windows 防火墙中的特定端口。

提前致谢。如果我的详细信息不足以回答我的问题，请发表评论。