填充：selectcommand.connection属性尚未初始化。 [英] Fill: selectcommand.connection property has not been initialized.

问题描述

Imports System.Data.OleDb
Module Module1
    Public SQlconn As SqlClient.SqlConnection
    Public Sub OPENCONNECTION()
        If SQlconn.State = 1 Then SQlconn.Close()
       
           Try
             SQlconn.ConnectionString"server=PC\SQL;database=SalesSystem;integrated security=True"
         SQlconn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "فشل في عملية الاتصال", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
            SQlconn.Close()
            End
        End Try
    End Sub
     

   Public Function GET_LAST_RECORD(TableName, OrderbyField) As Integer
         
        GET_LAST_RECORD = 0
        Dim STR= "select * from " & TableName & " order by " & OrderbyField

        Dim Adp = New SqlClient.SqlDataAdapter(STR, SQlconn)
        Dim Ds = New DataSet
        Adp.Fill(Ds)
        Dim DT As DataTable
        DT = Ds.Tables(0)
        If DT.Rows.Count <> 0 Then
            Dim i = DT.Rows.Count - 1
            GET_LAST_RECORD = Val(DT.Rows(i).Item(OrderbyField))
        End If
       
    End Function


End Module

我尝试过：



我尝试使公共函数GET_LAST_RECORD



自动编号到我的所有表格

What I have tried:

I try to make Public Function GET_LAST_RECORD

Automatic numbering to all my tables

推荐答案

Try
           GET_LAST_RECORD = 0
           Dim STR = "select * from " & TableName & " order by " & OrderbyField
           Dim Adp = New SqlClient.SqlDataAdapter(STR, SQlconn)
           Dim Ds = New DataSet
           Adp.Fill(Ds)
           Dim DT As DataTable
           DT = Ds.Tables(0)
           If DT.Rows.Count <> 0 Then
               Dim i = DT.Rows.Count - 1
               GET_LAST_RECORD = Val(DT.Rows(i).Item(OrderbyField))
           End If
       Catch ex As Exception
           Return (GET_LAST_RECORD)
       End Try

   End Function

当我使用Try Catch Preview第一行时

when I use Try Catch Preview first row

这篇关于填充：selectcommand.connection属性尚未初始化。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！