操作SQL Server完全模块

原创 2004年07月21日 10:11:00

Module ModSql

    Function GetIntByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "='" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

 

    End Function

 

    Function GetIntByInt(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As Integer) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "=" & ParaValue & ""

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetStrByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As String

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "='" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As String = ""

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), "", sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return Trim(rowsAffected)

    End Function

 

    Function GetStrByInt(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As Integer) As String

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "=" & ParaValue & ""

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As String = ""

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), "", sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return Trim(rowsAffected)

    End Function

 

    Function GetBitByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As Boolean

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "='" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Boolean = False

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), False, sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetBitByInt(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As Integer) As Boolean

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "=" & ParaValue & ""

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Boolean = False

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), False, sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetDateByInt(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As Integer) As DateTime

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "=" & ParaValue & ""

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As DateTime

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), DateAdd(DateInterval.Year, -100, Date.Now), sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetDateByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As DateTime

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where  " & ParaName & "='" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As DateTime

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), DateAdd(DateInterval.Year, -100, Date.Now), sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function DelByInt(ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As Integer) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "DELETE FROM " & TableName & " WHERE " & ParaName & " =" & ParaValue

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function DelByStr(ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "DELETE FROM " & TableName & " WHERE " & ParaName & "='" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

    Function DelBySQL(ByVal StrSQL As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = StrSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

    Function UpdateBitBySQL(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As Boolean, ByVal ParaSQL As String) As String

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = " & IIf(DataFieldValue = True, 1, 0) & " WHERE " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        sqlConnection.Open()

        Try

            sqlCommand.ExecuteNonQuery()

            Return ""

        Catch ex As Exception

            Return ex.Message

        Finally

            sqlConnection.Close()

        End Try

    End Function

    Function UpdateStrByInt(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As String, ByVal Para As String, ByVal ParaValue As Integer) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = '" & DataFieldValue & "' WHERE " & Para & " = " & ParaValue

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function UpdateStrByStr(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As String, ByVal Para As String, ByVal ParaValue As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = '" & DataFieldValue & "' WHERE " & Para & " = '" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function UpdateIntByInt(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As Integer, ByVal Para As String, ByVal ParaValue As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = " & DataFieldValue & " WHERE " & Para & " = " & ParaValue

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function UpdateIntByStr(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As Integer, ByVal Para As String, ByVal ParaValue As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = " & DataFieldValue & " WHERE " & Para & " = '" & ParaValue & "'"

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

 

    Function UpdateIntBySQL(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As Integer, ByVal ParaSQL As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = " & DataFieldValue & " WHERE " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

    Function UpdateStrBySQL(ByVal TableName As String, ByVal DataFieldName As String, ByVal DataFieldValue As String, ByVal ParaSQL As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & DataFieldName & " = '" & DataFieldValue & "' WHERE " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function UpdateBySQL(ByVal TableName As String, ByVal SetSQL As String, ByVal ParaSQL As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "UPDATE " & TableName & " SET " & SetSQL & " WHERE " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteNonQuery

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetDataTableByFormat(ByVal vRecordNumber As Integer, ByVal ItemSQL As String, ByVal TableName As String, ByVal ParaSQL As String) As System.Data.DataTable

 

        Dim RecordNumber As String

        If vRecordNumber = 0 Then

            RecordNumber = ""

        Else

            RecordNumber = "TOP " & vRecordNumber

        End If

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "SELECT " & RecordNumber & " " & ItemSQL & " FROM " & TableName & " where " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)

        Dim dataSet As System.Data.DataSet = New System.Data.DataSet

        Try

            dataAdapter.Fill(dataSet)

            Return dataSet.Tables(0)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

    End Function

 

    Function GetDataTableBySQL(ByVal SuperSQL As String) As System.Data.DataTable

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(SuperSQL, sqlConnection)

 

        Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)

        Dim dataSet As System.Data.DataSet = New System.Data.DataSet

        Try

            dataAdapter.Fill(dataSet)

            Return dataSet.Tables(0)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

    End Function

 

    Function GetMaxField(ByVal TableName As String, ByVal FieldName As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "SELECT MAX(" & FieldName & ") AS MaxField FROM  " & TableName

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetMinField(ByVal TableName As String, ByVal FieldName As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "SELECT Min(" & FieldName & ") AS MaxField FROM  " & TableName

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetFieldCount(ByVal TableName As String, ByVal ParaSQL As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "SELECT COUNT(*) AS FieldCount FROM " & TableName & " where " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteScalar

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetFieldSumByInt(ByVal TableName As String, ByVal FieldName As String, ByVal ParaSQL As String) As Integer

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "SELECT isnull(sum(" & FieldName & "),0) AS CountNumber FROM " & TableName & " where " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Integer

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteScalar

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function GetFieldSumByDec(ByVal TableName As String, ByVal FieldName As String, ByVal ParaSQL As String) As Decimal

 

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

 

        Dim queryString As String = "SELECT isnull(sum(" & FieldName & "),0) AS CountNumber FROM " & TableName & " where " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

 

        Dim rowsAffected As Decimal

        sqlConnection.Open()

        Try

            rowsAffected = sqlCommand.ExecuteScalar

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

 

        Return rowsAffected

    End Function

 

    Function ChgFieldByLeftWord(ByVal TableName As String, ByVal FieldName As String, ByVal ParaWord As String, ByVal NewWord As String) As Integer

        Try

            Return UpdateBySQL(TableName, FieldName & "='" & NewWord & "'+right(" & FieldName & ",len(" & FieldName & ")-" & Len(ParaWord) & ")", "Len(" & FieldName & ")>=" & Len(ParaWord) & " and left(" & FieldName & "," & Len(ParaWord) & ")='" & ParaWord & "'")

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        End Try

    End Function

 

    '数据库连接串

    Private Function GetConn() As String

        Return "server=localhost;database=pubs;uid=sa;pwd="

    End Function

End Module

 

SQL Server操作之数据库安全性和完整性

一道题学会SQL Server安全性和完整性控制,包括创建数据库,创建数据库用户,权限赋予及收回等 题目如下: 1、在SQL SERVER 2008上附加teaching数据库,其中三张表的含...
  • J_Anson
  • J_Anson
  • 2016年05月30日 00:34
  • 1445

数据库__Sql Server报错__02__操作无法完成,因为文件已在SQL Server(SQLEXPRESS)中打开。

(1)之前在写系列博客时候,新建数据库后,想把数据库文件MyMusicStore.mdf和MyMusicStore_log.LDF复制一份(如图1.1),分享出来,结果提示"操作无法完成,因为文件已在...
  • DHCsimida
  • DHCsimida
  • 2014年01月03日 19:39
  • 4655

Sql Server超时时间已到。在操作完成之前超时时间已过或服务器未响应[总结]

[Sql Server]超时时间已到。在操作完成之前超时时间已过或服务器未响应。 针对这个问题可以从以下几个房方面考虑:(若您有高见,请留言,谢谢) 一:执行命令超时;         Sq...
  • luming666
  • luming666
  • 2016年11月16日 16:21
  • 3177

VB.NET操作SQL Server完全模块

  • 2011年12月22日 22:54
  • 23KB
  • 下载

python中pymssql模块操作SQL Server

import pymssql import sys import datetime from string import Template cxn = pymssql.connect(host=r'i...
  • yuchao1076244056
  • yuchao1076244056
  • 2016年04月19日 13:50
  • 1094

Visual Basic + SQL Server数据库应用实例完全解析

  • 2018年01月16日 18:48
  • 7.39MB
  • 下载

完全手册c# 2005+sql server数据库与网络开发(上)

  • 2008年04月19日 09:53
  • 9.44MB
  • 下载

完全掌握SQL Server 2000

  • 2011年12月29日 16:35
  • 24.69MB
  • 下载

完全卸载SQL Server

  • 2013年02月25日 16:13
  • 16KB
  • 下载

Visual Basic + SQL Server数据库应用实例完全解析

  • 2009年04月28日 14:07
  • 5.76MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:操作SQL Server完全模块
举报原因:
原因补充:

(最多只允许输入30个字)