HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/99、未分類/Frm_stock_daily.vb

Imports System.Data.SqlClient
Imports System.Reflection
Public Class Frm_stock_daily
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Dim g_period As Date
    Dim g_accounted As Boolean
    Dim period As Integer
    Private Sub Frm_stock_daily_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim conn As New SqlConnection
        Dim DT1 As New DataTable
        Dim DT2 As New DataTable
        Dim DT3 As New DataTable

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn


    End Sub
End Class