sample02.vb

vb.net+sql进销存管理系统

Imports System.IO
Imports System.Data.SqlClient

Module Sample02
    Public SqlCon As New SqlConnection("Data Source=e1;Database=SAMPLE02;User Id=sa;Pwd=sa")
    Public UserId As String
    Public Purview As String

    Public Function GetDataTable(ByVal sql As String) As DataTable
        Dim dt As New DataTable

        Try
            Dim SqlAda As New SqlDataAdapter(New SqlCommand(sql, SqlCon))
            SqlAda.Fill(dt)
        Catch ex As Exception
            WriteErr(ex)
        End Try

        Return dt
    End Function

    Public Sub WriteErr(ByVal ex As Exception)

        Dim path As String = Application.StartupPath + "\Err02.txt"
        If Not File.Exists(path) Then
            File.Create(path)
        End If
        Dim sw As StreamWriter = File.AppendText(path)
        sw.Write(System.DateTime.Now.ToString() + vbCrLf)
        sw.Write(ex.Message + vbCrLf)
        sw.Write(ex.StackTrace + vbCrLf)
        sw.Flush()
        sw.Close()

    End Sub
End Module